le r hebdomadaire des programmes informatiques 



HEBDOCICOB 



A tout seigneur tout honneur ! La 
presence d'HEBDOGICIELau SI- 
COB est une des nouveautes de 
lannee A signaler HEBDOG1- 
CIEL recidive avec un stand a la 
MICRO-EXPO, au palais des 
congres ce qui constitue 
avouons le une raison suttisante 
pour s'y rendre ! Treve de chau- 
vinisme et parlons un peu des 
nouveautes de ce Sicob qui 
cherche son identite On peut 
d'ailleurs lui pardon ner. ce Sicob 
de Mai es! la premiere edition du 
genre. 

CANON ouvre le balavec un pro- 
riuit tres attendu par les fans de 
ce micro portable : une interface 
permettant ('utilisation d'un 
ecran couleur (un vrai !!) Bien 
evidemment, ['aspect portable 
du CANON X07dev.ent discuta- 



3estons dans le portable pour 
signaler ['apparition de plu- 
iieurs produits a vocation diffe- 
entes 



. e z 



EPSON (representant 
cology Ressources). a 

'imprimante matncielle 



LQ1500 d'une qualite et d'un de- 
sign irreprochables. le HX20 
tient le haut du pave. 16K RAM 
(extensible jusqu'a 32K), clavier 
professionnel, ecran LCD et im- 
primante graphique profession- 
nel ecran LCD et imprimante 
graphique integres, Basic Micro- 
soft, interface RS232C. Micro- 
cassettes, tout ca pese 1.7 kg. 

Pour fa ire un peu plus le poidssi 
necessaire. I'interface TV (32 X 
16). le lecteur dedisque 5pouces 
et le coupleur accoustique sont 
disponibles sur option EVA, un 
portable francais, est directe- 
ment connectable un reseau te- 
lematique VIDEOTEX! 

Beaucoup de memoire (jusqu'a 
264K RAM et 450 Ko d'EPROM). 
sortie Video (PERITEL). interfa- 
ce serie avec modem incorpore. 
interface micro disquette, impri- 
mante, code a barre, lecteur en- 
registreur de cartes de credits, 
meme sur option, ca laisse re- 
veur, non ! En ce qui concerne 
les langages outre les PASCAL, 
BASIC et FORTRAN classique, 
PROLOG, LISP et LOGO ne sont 
pas oubiies C'est assez rare. 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAOUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Regiement en page interieure) 



SICOB 

Devant I'avalanche de de- 
mande de cartes d'invita- 
tion pour le SICOB, nous 
n'avons pas pu tous vous 
satisfaire. Sans rancune. 

NDLR 



EVA est un systeme base sur 
BLAISE, sont petit frere. Allezje- 
ter un ceil chez computer con- 
cept, 21, rue de Tournefort, 
75005 PARIS. Prix ; 1000 E surle 
microphone du combine tele- 
phonique. appuyez sur le bou- 
ton, la transmission est imme- 
diate. Gadget ?. pas sur ! Vous 
pouvez raccorder le PX1000 a 
une imprimante ; en fait, il assu- 
re I 'ensemble des fo net ions d'un 
traitement de texte, avec en pri- 
me, la transmission des informa- 
tions Text Tell. Distributeur ex- 
clusif CE21. 45, rue Croulebarbe 
75018 PARIS. 

PierricGLAJEAN 



PAGE EDUCATION : 
EN RESUME 

• UNE RUBRIOUE CREEE 
PAR ET POUR DES ENSEI' 
GNANTS 



• PRET DE MATERIEL AUX 
ENSEIGNANTS DESIRANT 
REALISER UNE EXPERI- 
MENTATION (OPERATION 
PO E ) 



page 12 



EDITO 



Mon editorial de la semaine der- 
niere a recu un accueil particu- 
lierement "chaleureux" de la 
part de quelques revendeurs pa- 
risiens de logiciels :cela est alle 
de la menace a I'annulation de la 
publicite en passant sur les 
pressions sur nos fournisseurs. 
II semble evident qu'il doit deve- 
nir difficile pour eux de contr- 
nuer a vend re leurs produits aux 
prix qu'ils avaient I'habitude de 
pratiquer, Je tiens tout de meme 
a preciser qu'il reste beaucoup 
de fournisseurs qui pratiquent 
des prix honnetes. qui I'ont tou- 
jours fait et qui continueront a le 
faire et ils sont nombreux. heu- 
reusement ! II en existe meme 
qui Tame" dans le meme sens 
que nous pour ramener les prix 
des logiciels a une plus juste va- 
leur. Je ne peux malheureuse- 
ment pas vous en don ner une lis- 
te - publicite comparative obli- 
ge - ma is il vous suf fit de compa- 
rer leurs prix aux notreset de fai- 
re une soustraction ! Nous en- 
Irons cette semaine deux nou- 
veaux logiciels pour Texas ; 
Moonsv/eeper - un superbe jeu 
de I'espace en trois dimensions 
qui est un modele du genre et 
une exclusivite Hebdogiciel - et 
Microsurgeon qui va vous trans- 
former en chirurgien lilliputien. 
La semaine prochaine des nou- 
veautes pour spectrum et peut- 
etre pour ORIC. 

Vous avez ete nombreux - com- 
me d' habitude - a venir nous voir 
au Sicob malgre notre petit 
stand oil vous etiez bien serre. 
Venez done encore nous voir a 
Micro Expo, vous serez encore 



plus serre et les prix scon! 
encore plus speciaux Parexem- 
ple, pendant le salon les dis- 
quettes Memorex seront a 
150 francs la bolte, uniquement 
pour les a bonnes bien entendu ! 
Gerard CECCALDI 



MENU 



APPLE If 

DidierPOGLIO 
CANON X 07 
Patrick OE RUEL 
CASIO FX 702 P 
Antoine CRAME 
COMMODORE 64 
Andre MALEYRAN 
VIC 20 

Pierre-Marie BERNEZ 
DRAGON 
Amara CONTE 
HP 41 

JO HECTUS 
MPFII 

Alain JACOUOT 
ORIC1 

Pascal CLOCHARD 
MZ80 Chiffres et let! 

VILLAIN 
PC 1251 

Michei DUPONT 
PC 1500 
Pierre BERGER 
ZX81 

P CORDAILLAT 
SPECTRUM 
Marc ViLAIN page 7 

TRS80 Programme 

Gcstion/bas 
Luc WEYNACHTER Page 14 

Tl 99/4A (b.s.) Galactica 

Jean-Luc MOUOUOT Page 3 

Tl 99/4A (b.e.) Compte bancaire 
Guy COHEN Page 4 

THOMSON T07 Master 

Pierre MILLARD Page 5 



Bruitages 

Page 15 

King Frog 



Page 2 

Concentration 

Page 18 

Bolide Circus 

PageS 

Traitext 

Page 13 

Geant 

Pages 

Mulli-utihtaire 

Page 5 

Music-machine 



Calcul mental 



Poker 
Page 9 

Noisettes 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07. CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
DRAGON . HEWLETT PACKARD HP 41 . MULTITECH MP - F II . 
ORIC1. SHARP MZ, PC 1211, PC 1500. SINCLAIR ZX 81 ET 
SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HIPPOREBUS trouvezl'expressionqui se cache dans la B.D de I'hippocampe Decompose en iroissyllabesdans les trois premieres cases, le "tout" a evidemment un rapport avecl'informatique 
isoluhon en page interieure) 




( N° 33, 



Allemagne 3,50 DM - Balgique 55 Frs - Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs 



MEMENTO ELECTRONIQUE 



MEMENTO ELECTRONIQUE a pour but d'aider !es ama- 
teurs en electronique dans le decodage des couleurs sur 
les resistances et tes condensateurs polyesters. A qui 
n'est-ce pas arrivedemelangerlesvaleurs des couleurs et 
de voir son oeuvre ne pas fonctionner ? Et tout ca parce 
qu'une resistance est 10 fois plus forte que celle prevue 
par le montage. 

Maintenant finit I'angoisse des petites bandes de cou- 
leurs, votre FX-702 prend la chose en memoire. II vous 
donnera la valeur d'une resistance ou d'un condensateur 
polyester sans s'arracher les octets de la tete. Et vous 
n'avez qu'a faire ce qu'il demande, c'est a dire lui donner 
seulement les couleurs des petites bandes dans I'ordre. II 
avale tout, et vous donne la valeur du composant avec en 
plus la tolerance admissible pour le composant. Ci apres 
mesure a I'ohmetre la valeur d'une resistance depasse la 
tolerance donnee.il ne vous reste plus qu'une chose & fai- 
re: c'est de la jeter carellepourraitvousjouer des mauvais 
tours. 
Bon travail... 

Antoine CRAME 



- Consigne pour le chargement du programme - 

Avant de charger le programme definir le nombre de variables a 36. 

- F2 DEFM 1 EXE - 



On renlre les couleurs en mettant les 2 premieres lettres de cheque 

couleurs. Ne p as meUre d'es p ace entre les couleurs comme sur 

I'exemple 

Ecrire comme ceci ; MANOROOR sans espaces. 

ATTENTION : Le bleu et leblancont les memes premieres lettres. done. 

pour les differencier ecrire BC pour le BLANC (1*" et derniere lettre) 

sinon FX penserait que c'est aussi du bleu. 

Ensuite FX calcule el vous donne le resultat : 

1 KOHMS +/-0.05 KO 

Ce qui est ecrit apres +/— est la tolerance mini etmaxide la resistance 

Soit : Mini 1,05 KOHMS ou 1050 OHMS 
Maxi 0.95 KOHMS ou 950 OHMS. 

Pour contlnuer il suffit de presser : C pour un autre calcul 

M pour retourner au menu 
A pour arreter le programme. 

Si vous rentrer n'importe quelles lettres pourles couleurs, FX vous don- 
nera un resultat dont lui seul connait la signification. 

MENU 

1 ) Pour le calcul des resistances 

2) Pour le calcul des condensateurs 

3) Pour voir un exempie sur la facon de rentrer les couleurs 

4) Pour connaitre I'utilisation des touches A M et C. 

Ceci dit meme si Ton egare Hebdogiciel (DUR) notre FX-702P gardera 
son mode d'emploi dans ses octets... 



FX702 



Ensuite rentrer le programme. 

- Decomposition du programme - 
1 a 5 Initialisation des variables. 
10 Presentation. 
20/22 Entree des donnees. 
25 a 1 10 Decodage des couleurs. 
120 a 155 Calcul de la valeur du composant. 
160 Impression des resultats. 

1 70 a 1 95 Attente d'un ordre pour poursuivre le programme. 

200 a 205 Salutations de depart. 

210 a 240 Presentations du menu. 

300 Salutations de tin de programme et fin. 

400 a 440 Exempie de fonctionnement du programme. 

450 Retourau menu. 

460 a 500 Explication/Utilisation. 

- Utilisation du programme - 

Apres avoircnargele programme etfaitF2DEFM 1 EXEfaireF! Olepro- 
gramme commence. 

- EXEMPLE - 

On veut connaitre la valeur d'une resistance dont void les couleurs : 
Marron Noir Rouge Or 

Apres avoir presse (1) apres votre choix notre FX demande les cou- 
leurs : 
Soit : MA NO RO OR (EXE) 




REHDY P8: -123456739 

LIST 

1 Vffi :Q*="H0":R* 

Vi="VE"l«='8L" 
5 Xt="Vi":Y!="Sr 

!8 BAIT 381PRT °KE 
HEHTO ELECTR0H1 
QUE","fl.CRfiME 
FX-7KP"!fflJT0 2 

28 IF 5=1!IHP "V03 
COULEURS RESIS 



22 IF 6=2;IHP "V0S 
COULEURS C0». 
•■* 

25 PRT "JE CALCULE 

POL'R WUS" 
38 FOR 1=1 TO 5 ST 

EP 2:Lt=«I0(!,2 

) 
35 IF LS="H0":H--6 
48 IF l*="HrV;H=l 
45 IF LS="Rir;H=2 
58 IF L*="0R";H=3 
55 IF LS="JrV;H=4 
68 IF L»="VE",H=5 
65 IF Lt="BL":H=6 
?8 IF L(="JI";H=7 



?5 !F Lt="BR";H=8 
88 IF U="BC-:H=9 

85 S(Ii=HiHEXT I 
58 0!=SiO!?,2) 
95 IF 0!=*0R";fl?=5 
188 IF 0!='aP';P.7=! 

8 
185 IF Ot="BH(li=l 

8 
111 IF 0i="«0";R7=2 

8 
■:s R=HlM(B:B»fl« 

•lB*B3)»fl 
125 IF 6=1HFS<!e3 

;«=" MS":S0T 

155 
138 IF HilFfeld 



- .■■':-■'■- Ill 

;:: ; ; 5=liB=8/lEH 
Ct=' IW 

C155 
148 IF S=2iIF B<le3 

!»=" PF": 60T0 

155 
145 IF S=2!lF BJIri 

!1F 8<lriiC*=" 

HF"lS=8.'lE3iE0T 

155 
158 IF 6=2iB=B/U6i 

Ct=" MF":G0TC 1 

55 
155 NB<B7)/188H= 

Ct:Ft=lllC(l,3» 
168 PPT BlCt;'*'-"! 

KB 
178 Et=KYUF E«="B 

";G0T0 388 
188 IF E*=*t"i6BT0 

26 
198 IF Et="IT;60T0 

285 
195 80T0 178 
288 KBIT 381PP.T CSS 
tS'wtOWOKw 

","QUE FRIT-ON 

285 PPT •«*« HEN 

U»tt" 
218 KBIT 481PRT "1! 

RESISTANCE", "2) 

CONDENSATES"," 

3)EXE«PLE" 
215 PRT "4JRBPPEL 

ES TOUCHES" 
228 I HP "VOTRE CHOI 

X",6 
225 IF S=l;S0TO 28 
238 IF S=2;G0T0 28 
235 IF S=3;G0T0 4B8 
248 IF 6MJEDT0 478 
388 VBC :«BIT 48:PP, 

T "BOHHE JOURNE 

EVflUREVOiR.. 



::- -.. 

: . :■:■{• '.^ 

.... 

■'■ LESS 

:: ; ;; lei 
tksv: 

428 ftl ■=> IKWOM 

Or:FM 1=1 TO 

2W:HEKT ! 
423 FOR 1=1 TO 5 
425 PRT "••P.TTENTIO 

»«"1PRT 
427 NEXT ! 
438 PRT "ECRIRE - 1 

,"P0UR vISTIKSK 

ER ill BLEU* 
448 PRT "CEST PUS 

PLUS DIFFICILE. 

45! KBIT 281PP.T "R 

468 FOR 1=1 TO 181-41 
BPPEL CES TOUCH 
EStVBPKS LE 
RESOLTBT" 

475 PRT "PRESSEZ (C 
) POUR CONTINUE 
RV(fl) POUR BR 
RETE1F 

489 PRT "(H) RE 49- 



RE9W P8: .123456789 



LIST 488 

REHDY P8 
LIST 488 
488 PRT "(H) RETOUR 

BU Ml." 
498 PRT "OK CEST P 

flRTI » 

598 FOR 1=1 TO 288: 
NEXT I:60T0 285| 





;appkz 



NOUVEAU 
L'APPLEIlc 

est arrive 



CONFIGURATION DE BASE 

-APPLE lie 

- MONTTEUFr II 

- DISK II AVEC CONTROLEUR 

CONFIGURATION DUO DISOLfE 

- APPLE He 

- MONITEUR II 
-DUOOSK 
-MON1TEUR 

- CARTE APPLE TELL [VIDgOTEXTE] 

- SOURS APPLE + MOUSE PAINT 

- PRO-DOS APPLE Rf 
LOGICIELS SUR DISOUETTES 
POUR APPLE He ET APPLE II 48 K 
EDIOELS 

MATHS ) 

• formes mdetermin*es. limites. 
logar ithmes ef exponenOHIes 
MATHS 2 

• suites et integrates 
MATHS 3 

• trigonomet/ie 

• nornbres complexes 
PHVSIOUE1 

• induction et condensaieurs 

• produrt veaoilei 
PHYSJOUE2 

• circuits oiciUant; 
EDKOGO 

Le lammi. i^n^^^n LOGO, en fftlKtb 
dani U version ot Iginale 
CAJTTE POBTE-PABQLE 



11 fr,tri'..i-. 






Vl-R NATHAN 

LOGICIELS EDUCAT1FS 
POUR APPLE II ET lie 



• Mann* « Gretel lleauie) 



PrwTT.C 

QSO0.00 a 



12 400,00 


D 


17500.00 


a 


1 209 00 
557.00 


G 
D 
D 


29S.0O 


D 


295.00 


D 


295.00 
295.00 


D 

a 


295.00 
295.00 


n 
ii 


295,00 


n 


1 -190.00 


i) 


1 395.00 


a 


395.00 
395.00 
395.00 
395.00 


rj 
1 . 

a 
a 



LOGtOELS DC JEUX 






POUR APPLE II ET lie 






• Daedalu; 


395.00 


1 i 


• IFR iimulaiwjr de vol 


495.00 


Li 


LOGICIELS 






POUR LA VIE PROFESSIOMNELLE 






POUR APPLE II ET lie 






• Calculate 


585.00 


D 



125.00 
115.00 


n 
[] 


260.00 
160.00 
95.00 


□ 
D 



fEcommodore 



COMMOOORE 
Commodore 64 Pal 
Lecteur de drjquw Vit 1541 
Traceur de courDei Vit 1520 
CJble peritel 64 
able video 64 
Programmer ref : guide 64 
Magnetophone cassette 



PrinTTC 




2 990.00 


1 1 


3.380.00 


1 1 


1 950.00 


1 1 


1 50.00 


1 i 


150.00 


1 1 


250.00 


□ 


450.00 


°l 



GESTJON 

Gesiion de fichiers 

UTILTTAIRES 

Pascal 4 T 

Devpitc AsiembhnjrAJesaisembleijr 

2X Trans 

NOUVEAUX LOGICIELS "HAUTE RESOLLmON- 

- ANT ATTACK 
-FRED 

- FIGHTER PILOT 

- NIGHT GUNNER 

- BLUE THUNDER 
-BLADE ALLEY 

- HUNCHBACK 

Vl-R NATHAN 

LOGICIELS POUR SINCLAIR SPECTRUM 

• Croque nombres 

• Combien font ? 

LOGICIELS EDK3EL 

Interceptor 
Pillage eounique 



120.00 


n 


120.00 


1 1 


120.00 


1 1 


120.00 


n 


120.00 


1 1 


120.00 


1 1 


120.00 


u 


125,00 


n 


125.00 


1 1 


125.00 


1 1 


125.00 


ii 


130,00 


n 


130.00 


u 



zx spectrum ^res=zx8I 



INTERFACES 

Spectrum 48 KPAL 

Carte 8 entreeV^orties 

Carte 8 entrees anatoglqu« 

Interface manette dejeu/ 

Manette dejeux 

Modulateur UHF noir et blanc 

lmpnm,inteAlpriacom32 

Amplrficateur sonore 

Extension 32 K 

Interface Centronlcs/1i , S232 

CAble pour Centronics 

8ofte5 rouleau' dc papier Alphacom32 

SoRe 5 rouleau* de papter 

pour imprimiime SINCLAIR 

Cordon Pcrrtel/Moniteur 

AdapOteUf P*rttel 

Interface manertiy, dej''ij< progt/immables 



rui 

Prix TTC. 


II 


1.965.00 


II 


395.00 


11 


395.00 


n 


245.00 


1 1 


120.00 


1 1 


1 90,00 


ii 


1 190,00 


ii 


160.00 


ii 


560,00 


n 


650,00 


n 


150.00 


1 1 


150.00 


u 


175.00 


n 


95.00 


1 1 


360,00 


n 


395,00 


u 



iMOUVEAUX PRODUITS 






Interface I -f microdrive 


1.835.00 


i I 


interface 2 


351.00 


'" ! 


Mif rodiiguette vlergc 


79.00 


1 i 


JEUX SUR ROM POUR INTERFACE 2 






P",r-[ 


185.00 


1 ; 


Jetcpatk 


185.00 


i ; 


Cookie 


185.00 


i ; 


T(an/am 


185.00 


' : 




185.00 


. 


Hanetoides 


185,00 


. 


Hungry honce 


185.00 






185.00 


. 


3*ck gammon 


185.00 


■ 


JEUX DE REFLEXION 






SmutoaurdevDl 


9SJJ0 


D 


OtrielJo 


75.00 


II 




54.00 


n 


Erlieci 


115.00 


1 1 


Manager 


1 40.00 


a 


EDUCATION 






Malli 


54.00 


ii 


Miao-re 


54,00 


a 



CARTES - INTERFACES 






BIBUOGRAPHIE 






2XSI 


580.00 


n 


Clavier mfcanique "A8S" 


140.00 


1 1 


Carte extension 64 K 


8 1 5,00 


i 1 


Carte generatrice de earatteres 


432.00 


II 


Carte wnore (5 octavesj 


432,00 


1 1 


Carte entreeV«>rties (8 E/SJ 


395,00 


1 1 


Carte 8 entieci an aloqiques 


395.00 


II 


Carte interface manette dejeux 


745.00 


L"l 


Manette dejeux 


120.00 


G 


Interface Centronics 


990.00 


a 


Impnmante grapMque Scikoscfia 100 A 


2 500.00 


a 


Inipumantciiphacom 32 


I 1 90.00 


1 1 


FJoitr 5 mulr-iiK <lr |i.ipn-/ Alpiiacont 32 


150.00 


D 


BoTte 5 rotileaux de papier 






pour imprimante SINCLAIR 


175.00 


1 1 


l ■: ....nir.K 


360,00 


1 1 


NOUVEAU PRODUIT : 






CMOS mfmoite consume |7 KRAM) 


450.00 


1 : 


Wcwlllll; '} K '.lljiplr'.-nr-r '..:•■■ ;..- ■;.' - 1/ . i-' 


55.00 





Scramble 
Rex Tyr 

Siotk car 

f .v.-.r briqiieset pendu 
JEUX DE REFLEXION 
Othello 
Ecnwi 



GESTION 

I .,ni|,lc r .. 1 r .. 

Vucalc 



65.00 


IT 


65.00 


1 1 


75.00 


1 1 


75.00 


1 1 


75.00 


11 


75.00 


11 


75.00 


11 


75,00 


I 1 


95.00 


1 1 


95,00 


1 1 


95.00 


1 1 


85,00 




85.00 


U 


85,00 


n 


85.00 


L) 


95,00 


II 


I 10.00 


1 1 


110.00 




1 50,00 


II 



UnUTAIRES 








7S.00 


n 




75.00 


1 1 


Fast load mon.tor 16 K 


7S.00 


1) 




75.00 


(1 


Tool kpt Artie 


75.00 


i 1 


ZXTfi 


75.00 


1 l 



THOMSON TO/7 

PROMOTION TO/ 7 

memo- basic 

MATER1ELS THOMSON TO/7 

Unite cent rale 

Lecteur cnrcgiitreur 

Extension memoire 16 K 

Comroleur com. 

Sonetjeu* 

Mc^no Basic 

LOGICIELS ANSWARE 

Budget familial 

Carnet d ad i esses 

Gere* votre bibNotheque 

Gere? vos fiches 

NOUVEAUX LOGICIELS 

EDUCATIFS 

THOMSON TO/7 

Initiation au Basic |voi 4| 

La de des tiiants 

L,? tonde des lormes 

LOGICIELS DE JEUX THOMSON TO/7 

Mtlimf-mot 

Quest (module de base) 

Quest |K7 Histoire-Geo | 

Quest (K 7 SportJ 

Ouest (K J Sciences et Detouvenes) 

Yams, poker, solitaire 

Cocktail 3 



LeLi 



PRIX TTC 




3 450.00 


D 


Pr« TTC 




7 4 BO .00 


1 1 


800,00 


11 


750.00 


1 i 


850.00 


1 1 


600.00 


1 1 


480,00 


1 1 


450.00 


n 


480.00 


1 1 


490.00 


1 1 


525.00 


u 


195.00 


1 1 


1 75,00 


ii 


145.00 


ii 


425.00 


1 1 


325.00 


ii 


65.00 


n 


65.00 


1 1 


65.00 


1 1 


175.00 


1 1 


95.00 




125.00 


;l 



BON DE COMMANDS 
TARIFS AU 25/5/1984 



j Prenom 



| Code Postal 



j Ces prlx sont indlcatlfs et pcuvent ^re modl- 

J fles wns preavls. 

- Produits dlsponibles dans la limite de noi 

■ stocks en tnagasfn. 

• Participation aux frals de port et d'exp£ditfon 

J en recommande pour les logldels 

I LAREGLEACALCUL: 

| 65/67, bd Salnt-Germaln, 7S005 PARIS 

j Tel. :325.68.8a 

■ Telex : ETRAV 220 064 F/I303RAC 



+ 30 F. W 

J 



GALACTICA 



Vous 6tes aux commandes du plus sophistiqu6 des croi- 
seurs de batailledela TERRE. Mais il est encore en experi- 
mentation. 

Brusquement les teleradars longue portee detectent que 
notregalaxie est envahie par nos ennemis jure>s: les IMPE- 
RATORS. 

Vous avez sous votre comrnandementle seul navire capa- 
ble de leur resister avec succes, bien qu'il ne soit pas fiable 
a 100%. 

Votre mission sera done de les mettre en fuiteou de mou- 
rir... 

Jean-Luc MOUQUOT 64 

63 

66 

Plusieurs couleurs d'ecran indiquent differentes situations : 67 

- VERTE, que vous etes en securite dans un quadrant ne contenant 63 
aucun ennemi. 69 

- ROUGE, qu'un quadrant est infecte par les Imperators. ™ 

- JAUNE. que votre niveau d'energie est dangereusement bas et qu'il jr> 
est urgent et vital de vous ravitailier a une base. 73 

- BLEU, que vous etes amare a une base. Elle persiste meme si le qua- 74 
drant contienl des Imperators. 

Lespace est divise en 64 quadrants (8 x 8) numerotesde 1,1 a 8,8. II n'y a 
que la que vous trouvere2 vos ennemis. Attention done a ne pas vous 
perdre dans !e quadrant -7.2 ou 10,34 qui existe bien mais qui est abso- 
lument vide. 

Chaque quadrant est divise en 64 secteurs (8x8). Votrevaisseau occu- 
peunsecteurcomplet. En appuyant sur n'importequ'elle touchevous 
aure2 la liste des commandes : 

(A) - listedes(A)varies. Unchiffrenegatif indiqueuneavarie. Silechit- 
tre est inferieur a -3, vous ne pouvez faire de reparation immediate et il 
vous taut attendre 2 ou 3 tours pour que votre situation s'ameliore... 
(R) — (R)eparations. II vous suffit dedonner del'energieau robot en lui 
designant le numero de I'appareil a reparer. 

(B) — (B)oucliers. II est vital pour vous de les maintenir a un niveau 
d'energie suflisant pour pouvoir "encaisser" les tirs ennemis. 
{C) — radar (C)ourte portee. Sert principalement a taire reapparaitre le 
quadrant ou vous vous trouvez, surtout lorsque I'affichage des evene- 
ments le fait disparaitre. 

(D) — (D)eplacements. Vous donnez en premier la direction puis la dis- 
tance : 

- DIRECTION DE 1 A 8 : 1 - est 

2 — nord-est 

3 ■ nord 

4 — nord-ouest 

5 — ouest 

6 — sud-ouest 

7 — sud 

8 — sud-est 

- DISTANCE DE 0.2 A 8 : 0.2 - 1 seul secteur 

0.5 — 4 secteurs dans !e quadrant 

1 = 1 quadrant 

4 — 4 quadrants 

4.4 — 4 quadrants -f 3 secteurs 
(L) — radar (L)ongue portee. Vous permet de visualiser le contenu des 
quadrants voisins. Cela se traduit par un nombre qui s'interprete com- 
me suit : 

- les centaines = nombre d'lmperators 

- les dizames - nombre de bases 

- les unites — nombre d'etoiles dans le quadrant considere. Vous vous 
trouvez bien entendu au centre. 

(M) - lancement d'un (M)issile. II vous suffit delui indiquerta direction a 
prendre (voir a deplacement). I! nepeut detruite qu'un seul ennemi etil 
s'auto-detruit en sortie de quadrant. 

(T) — 0~)i r laser. II est omnidirectionnel et peut, si vous lui donnez suffi- 
samment d'energie. detruire d'un seul coup, tous les Imperators du 
quadrant ou vous vous trouvez. 

Les bases que vous decouvrirez ca et la vous permettrons de vous ravi- 
tailier en energie et en missiles. N'oubliez pas qu'a chaque tir ou depla- 
cement, les Imperators vous tirent dessus. 

D'autre part, toutes les actions que vous entreprenez vous font con- 
sommef de I'energie en plus ou moins grande quantite. 
Ilmeresteavousparterdu lout dernier cride la technique Terrienne:Ie 
rayon "X" II consomme beaucoup d'energie. II peut elre tres utile ou 
tresdangereux. II peut modifier I'espace, suspendrele temps pourvous 
ou pour les Imperators, vous transporter dans un autre quadrant, 
detruire tous les Imperators ou encore vous detruire... 
en fin de partie. le jeu recommence. 

Ce programme fait 16 Ko, aussi il peut arriver, tres rarement, qu'un 
"MEMORYFULL" s'affiche. Je n'y peux hen et cela est vraiment excep- 
tionnel. 
Bonne chance et pensez que la TERRE vous regarde... 



BASIC SIMPLE 



3 RRNOOMIZE 

6 GOSUB 519 

7 FOP 1 = 1 rrj 24 

8 Z«*Z«" ■' 

9 NEXT I 

10 Din G<8,8),C<9*2>,K(8,3)sHCS>,2<8,8) 

11 T8»JKT<RHOtZ87(iee*2ee0 

12 T = T0 

13 RESTORE 

14 T9-30 

15 T3-0 

16 D0-0 

17 E0=?000 
le E-E8 

19 PO=10 

20 P-IO 

21 39=288 

22 3-0 

23 H8-0 

24 DEF PO-INT'.SIPND.'l 
23 Ql-TO 

26 02-RD 

27 Sl-RD 

28 S2-PD 

29 FOR 11=1 10 9 

30 PERO Cril-1 >,CC 11/2) 

31 NEXT II 

32 OfiTR 0.1.-1.1.-1.8.-1.-1.8.-1.1.-1. 1-0. 1.1.0.1 

33 Dt-"MOTEUPS PFIDHP r.p PHPRP LP LRSEP MISSILES 
CONTROLE BOUCHERS ORMNRTEUR" 

34 B9-0 

35 f.9-0 

36 FOR 1-1 TO 8 

37 FOR >l TO 8 

38 RI-RND 

39 K3— <Rl>.44)-< Rl>.36)-CRl/.7)-<Rl>.S2)-'PI>.9>-'Rl 
>.93>-<Rl>.98)-<Rl>.993> 

40 K9-K9*K3 

4*2 fMlB.90 THEN 43 

43 63-8 

44 GOTO 47 
43 83-1 

46 B9-B9+1 

47 S3-W> 



■: 


a i ,j>«3W« 


•& 


118*33 




49 


Z< 1 . J >-0 








50 


next j 








31 


NEXT 1 








52 


K9-IMT-:K9^4? 








33 


K7-KS 










IF 1 B9- =Q."< 1 


K«em 


34 


55 


CRLL CLEAR 










PRINT "VDICI 


■r- L : 


5 1 OH 


■■ IMPESflTORS flVEC 




B9.-BR 


-E", 


3? 


IF 69<2 TMEII 


39 






53 


PRINT ■■$■■ ■ 








39 


PRINT 








60 


K3«e 










B3-0 








62 


S3-0 









"RERTTRE".>-.9. 



V7=0 

RS-R3+2 
I IF '.QKl)*<Ql>8)+(Q2<l)+ r 02>S>THEN : 
' K«G(Q1>02XS.81 
I K3"IHT(X) 

> 83-IHT.'.y.-K3>!10^ 
! S3-«Ql/Q2>-IHTC«Qi / Q2»,l >xie 
. IF <K3»0>*lS>2Ca>THEH 74 
! CALL SCREEN',?' 

J PRINT TfiB'. 7), "DEFENSE FRIBLE 

i FOP 1=1 TO 8 
I K< 1 , 3 >=0 
I NEXT I 

■ »»a 

i R*=Z» 

I 3«=SEM<Z». 1.36) 

> IF K3*8 THEN 91 
. FOR 1=1 TO K3 
! GOSiJB 152 



i Z2=R2 

I GQSOB 160 

' Y,'. I,1>=R1 

I KCI.2>R2 

> KU.3>=39 

) NEXT 1 

, IF B3*Q THEN 93 

I FOR 1=1 TO B3 

J GOSUB 152 



' GOS08 169 

i NEXT I 

I IF S3»0 THEN IS; 

18 FOP 1 = 1 TO ^3 



A suivre: 

En raison de la longueur 
inhabituelle du listing. 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



i INPUT ul 

■ :• - ■ ■ ;.■■ . 

j if to* :■=;.. mi ».a ■•*•* is? 

J PRINT -H0TEUPS EMW»«1»^-. . 

■ ano i9i 

MFK3<4 tHE ■ . . 

- :::,■; 

.<:=■•: -■■: '■-_', _■:_ 

I IF 3<0 THEN 589 

I GOTO 287 

i IF E>0 THEN 2?7 

I IF i : '--■■ ■-■:. 

j PRINT -VOUS BVEZ'.E. -61WJ0U.es i . . .- 

» GOTO 112 

' FOR 1=1 TO S 

j if W I »«fl IHEH =1" 

J M1MXI>+1 

> ion i 

I IF RHD>.2 TNEti 223 
! Rl-RB 

; :f PN? -.5 :H£:i ^:^ 

■ :-■;=. - : - |H1 RNM5+1 ■ 
i PRINT 

; cosue ies 

' PRINT " EHPOWIrtGE" "" 
I GOTO 223 

' rxRi ■■=[■■■. Ri ■*!- int -■-: <: 

I PRINT 

. QOVJB 169 

: PRINT ■' ETRi ■■■■;_; jre 

I HN»INKUlt3> 

I fl*=" - 

• Zl=31 

; Z2-S2 

■ GOSUB 160 
I X=S1 

i ir-sa 

I C2-1NTCC1 ' 

X1«GXC2,1 ■*■:(.■'. C2*l l >-l- LJ 1 ■ ■' ■_ : 
. ;:i=C' C2>2>KC(C2+l>2>-C<C2>2»*<Cl-C21 
I FOR 1=1 TO NN 
; S1-S1+X1 

■ £i-:.2-; 2 

1 IF tSK.3 "'MSI >=.-:.'. ■• -- ." ■ -- - ■■' , -iheh 259 



165 GOSUB 16'J 



t\ 



99/^ 



i GOSUB 160 
>;0SU6 407 
■ PRINT v C0MVttC€ ". 
: HSyB^lBfi 

. IF ■ (VI . + < H ^-1 'IHtN IIS 
: PRINT 

' ON ft GOTO 397.387,111. 198.116.118.118.118 

15.3. IIS. 290. 118- 118. 118. 472 

t CRLL CLEfiR 

i PRINT ; ' "(fl'-PRPPOPf DES tRTWRIES" "• B ■='.t.'Wk'.rLL t-b .-. CBXWCUIER* 

(CXWRTE PORTEE" 

I PRINT "<0>=f.t>)EPLfttEnt(n» -'L.-RHbRP • L >OHGUE PORTEE* 



::■:. ^r=si 

239 22-S2 

2-id GOSUB 171 

241 IF Z3< -0 THEN 247 

242 PRINT "COLLISION " " 
24J? CRLL BOUMK 388,1 IB. 1> 

244 S1-S1-X1 

245 S2=S2-X2 

246 GOTO 248 

247 NEXT I 
>43 R»=-*b" 

249 S1»INTCS1*.3> 

238 B2-IHT<S2».3J 

251 Z1=S1 

252 Z2-S2 

253 G0SU8 160 

254 E-E-NH 

2K IF Wl< 1 THEN 237 

lit Hut" "" »' 

239 X-01»S+:->::i'NN 
268 Y»02*8+Y+X2*HH 



118. LIS. L18.274.314, I I'd 442. 11;. 1 I 



PRINT "<Pi='P 'tPHWHtiriNV "' I ■-• I MP LMStP" 
! GOTO 112 

I PRINT "1HPEPRI0P PU SEOrE'JR" ■}■■■ I ■ 1 >■ " , 'tK'.l . 
I CRLL S0iJHD<700.-,',0 ' 
> CRLL SOUMW 100,660,1 > 
I CRLL SOUHtX 188,338/1 J 
■ CRLL SOUND' 100-330.1 > 
'. K3=K3-1 
I K9-K9-1 
I Rt-" ' 
. Z1"K( 1,1) 
! Z2=K<I,2) 
f GOSUB 1 



(HMJWCENENl 8"UH - 
E< .-: MRIHEHTRL" 




134 KCI.U-8 

133 K( 1,25-0 

136 G(01.02J=G<rjl,O2>-100 

137 RETURN 

138 IF C»="" THEN 142 

139 IF B3-0 THEN 141 

140 PRINT "Lft BRSE PROTEGE LE VFUSSEfiU" 

141 RETURN 

142 IT CK3<a»j*(T5*l)TH£ll 13) 

143 FOR 1-1 TO 8 

144 IF KCI.3K-0 THEN 150 

145 H»<K(I,3>/S0R<(KC I.D-S1 r2+<K< 1 .2 >-S2 >'2 > •t^iKIH' 

146 S=S-H 

147 h=int';h*i08>.'100 

143 print "vrisseru touche" ink 3). "g i gr joules pesteni" 

149 IF 3<0 THEN 309 

150 NEXT I 

131 RETURN 

152 R1=RD 

133 P2-RD 

134 Rt-" " 

153 Zl-Rl 
13fi Z2-R2 

137 GOSUB 171 

138 IF 23=0 THEN 152 

139 RETURN 

160 8S"Z 1*16+22*2-17 

161 IF S8>47 THEN 164 

162 Q»«SEG*'.G*. 1.36-1 )4R»iStG»' »*. SS'l'.J; 1 -^^ i 

163 RETURN 

164 IF 38>33 THEN 167 

165 R»«SECt< R*. 1 . 38-49 >E.R»?.SEGt' PI . S8-46.93-S8 > 

166 RETURN 

167 3t-SEG4<S«. 1.S9-9.' ^.HV/iLG*' S«,S8-94, 127-38 > 

168 RETURN 

169 PRINT SEG»<t>»,Pl*10-9.10'. 
1T0 RETURN 

171 Zl'IHKZl+.S) 

172 Z2-INT'Z2».5> 

173 S8-Z1* 16*2212-17 

174 Z'i'O 

175 IF S6>4? THEN 179 

I7fi IF SEGf;Q*,SS.2>OR» THEtl 183 

177 23-1 

178 RETURN 

179 IF S8>93 THEN 183 

186 IF SEGVR«.38-48.2K;R» THEN IBS 
181 Z3-1 

132 RETURN 

183 IF BECKS*, 88-96, 2>OR« THEN 183 

184 23-1 
183 RETURN 

18': CRU KEYC3.fi.ET) 

187 IF ET-0 THEN 186 

188 PRINT CHR»-:fl>. 
169 RETURN 

196 input -DIRECTION C1-9>'"«C1 

191 IF Cl-Q THEN 112 

192 If (CKI J*(C1>-9>TMEH 19* 



>»( j<-8)THtn 283 



W«3) 



261 01=INTrx/8> 

262 OZ-INTCY^B) 

263 81"IHT<X-Q1*8*.3) 

264 S2=INT(Y-02I8*.3) 
263 IF S1O0 THEN 263 

266 01-01-1 

267 31 -8 

268 IF S2;>0 THEN 271 

269 02=02-1 

270 S2-8 

271 T-T+l 

272 E-E-NN 

273 IF T>T0tT9 THEN 307 ELSE 60 

274 IF DO».0 THEN 277 

275 PRINT "RRWW LONGUE PORTEE I 

276 GOTO 112 

277 PRINT -VRISSERU RU BU«*RN 
276 FOP 1-01-1 TO 01*1 

279 FOR J-02-1 TO 02+1 

280 IF (I>-1 >*<I<-8)»( 

281 N(J-02t2)=0 

282 GOTO 286 
2B3 MX J-OZ+2 >-G< I.J> 
284 IF DI7KB THEN 286 

283 Zf I , J )«&( I.J) 
236 NEXT J 

287 PRINT ^Hf U. rfiEU0 , .N<2»TflB'.2B 

288 NEXT I 

289 GOTO 112 

290 IF K3<-0 THEN 403 

291 IF 0C4»-0 THEN 294 

292 PRINT "LASER H.S." 
233 GOTO 112 

294 IF D(7)>-0 THEN 296 

295 PRINT "ORDIMRTEUR ». r 

296 PRINT "LASERS PRETV 

297 INPUT "C0I161EH POUR LE TIR T" X 

298 IF X<-0 THEN 112 

299 IF E-X<"0 THEN 294 

300 E-E-X 

301 GOSUB 138 

302 IF D<7»-0 THEN 304 

303 X-X*RN0 

304 FOR 1-1 TO 8 

303 if k< I.3X-0 mew 1. 
386 H-Ot/K3ARND+.l>>*2«RH0 

307 K(I.3>-K< I.3)-H 

388 PRINT "KIPtRHIUR l-U 'itCl tW .M 1 . I ? 
■TOUCHE" KUi J'.'-UMITL':. RE81EHT 11 

389 IF Kf I.3»0 THEN 312 

310 GOSUB 123 

311 IF K3<-0 THEN 313 

312 NEXT I 

313 IF E<0 THEN 309 ELSE 118 

314 IF [K3) "0 IHEN J17 

313 PRINT "LfiNCE-HISSlLtS H.'..." 

316 GOTO 112 

317 IF V70I THLM HE 

318 PRINT "LES IMPERRIOR' 

319 GOTO 112 

320 IF P^O THEN 323 

321 PRINT "IL N'V R PLUS CE MISSILES 

322 GOTO 112 

323 INPUT "DIRECTION OU TIR <l-9>'"'< 

324 IF CI-0 THEN 112 
323 IF < C !<!> + ( CI >"9>THEM 32J 
326 C2-1NT(C1 ) 



HU' 17 ' "INVISIBLES 



a suivre 



GESTION DE COMPTE BANCAIRE 



Un super programme de gestion de compte special cour- 
se ! II vous facilitera vos problemes de gestion mais ne 
vouspermettra pas, malheureusement.de depenser plus 
que ce que vous possedez ! 

Guy COHEN 



L'accenl a ete mis sur la secunte d'utilisation el quelques astuces evi- 
tenl la frappe repetitive de certains renseignements. 
Lefichier est actuellemeritlimite a 160 ecntures.pourla version debase 
du TI99 (sans extension) Ala premiere utilisation du programme, il faul 
remplacer la ligne 200 par . 

200 N - 0::SOLDS-"3895.25" si voire solde est 3895.25 
et repondre OUI a la question "le fichier est-il en memoire (0/N)?". 
Faites figurer le libelle d'un cheque (ex : C. 3885281 /PAIN VI N) c'est a di- 
re le numero du cheque et un commentate, vous gagnerez du temps 
par la suite Le programme est prevu pour un numero de cheque a 7 
chiftres Adaptez-te si necessaire. 

En supprimant Ics commentaires vous pourrez stocker 190 ecritures 
environ Wodifiez alors la ligne 180 : 
180 DIMES (190);UAX-190 

Remarques sur la recherche d'ecriture : II est possible d'effectuer une 
recherche par date, montant ou libelle. avec I'optton "recherche par li- 
belle, on peut indiquer le nombre de caracteres utiles a la recherche 
(oubli du libelle complet, etc. .). 

Lorsqu'une ecriture est trouvee. il est possible d'effacer, de continuer. 
de modifier le montant". Le message "conflit du montant" indique une 
erreur due a la banque Ou a vous-meme. 

II est possible de verifier le solde du releve en fonction du solde indique 
par I'ordinateur. Ne pas oublier. en tin d'utilisation, desauvegarderle fi- 
chier (optionnel). 




Tl-99 4/ A ___ ,_. , 
BASIC ETENDU 




170 CALL CLEAR :: CALL SCREEN<2)SJ CALL COLOR ( 1 . 3, 3) : ; FOR 1-2 TO 9 : : I 
R<f, 2,7)11 NEXT [ :: ON WARNING NEXT 
ISO Din E«(160>S1 NHAXT60 

:90 .•......»..*••*.■■■•••■ 

Z10 '...........*.....*...*■ 

220 DEF DAT*!A*)=SEG*(A*. 1 . 2) I'V'ISEG* (A». 3, 2) h" / "S,SEG* (A«, 5. 2) 

230 DEF DOT*(A*l-SEG*(A*. 1 . 2) t.SEG* (A*. 4. 21 J.SEG* ( A*, 7, 2) 

240 H*-"CORRECT (O/N) 7 O" :: H2«="V0TRE CHOI): 7" :: M3*="TERMINE" 

230 DISPLAY ATtlO,4»BEEPj "DATE DU JOUR ? JJ/MM/AA- 

260 ACCEPT AT(IO.I9)5IZE(-B)VALIDATE(DIGIT, "/"): J* 

270 DISPLAY AT(13.4)BEEP:11» 

280 ACCEPT AT(13,20tVALIDATE<"0N a >SIZEf-l) : R* 

290 IF R*-"N" THEM 260 

300 ........................ 

menu principal • 

--.;, 

330 DISPLAY AT ( 1 . 1 1 ERASE ALL BEEP: " 1 . L IRE LE FICHIER" 

S4fl DISPLAY AT(3. 1 ) : "2.SAUVER LE FICHIER" 

ISO DISPLAY AT<5. 11 : -~,. AFFICHER LE FICHIER" 

3*0 DISPLAY ATI7. 1) :"4.ENTRER DES ECRITURES" 

370 DISPLAY AT(9, 11 : "3. RECHERCHER DES ECRITURES" 

390 DISPLAY ATI1 1, 1) : "(..VERIFIER LE SOLDE" 

390 DISPLAY ATI 13, 1 I : "7. TERMINER" 

400 DISPLAY AT<20,9)(H2* 

410 ACCEPT Ari20,23>VALIDATE('T234367")5IZE(l> :R 

420 ON P GOSUB 460.700.360,770,1010,1320.1460 :: GOTO 330 

440 '• LECTURE DU FICHIER • 

460 DISPLAY ATtlB.l J ERASE ALL BEEP: "LECTURE DU FICHIER" 

470 OPEN «li "CSI". INPUT . SEOUENTIAL. INTERNAL, FI XED 37 

490 INPUT ■liEftfOl 

490 W-VAL.(9£B«(E*tOJ . 1 ,31 •-. : SOLD*'SEG*(E*(0> ,4. 101 

SOO FOR 1-1 TO N :: INPUT »l:E»U>:: NEXT I :: CLOSE til 

310 DISPLAY AT(13, 10JERASE ALL:M3* 

320 GOSUB 1580 :: RETURN 

330 • 

340 •• AFFICHAGE DU FICHIER* 

539 >..................•.••• 

34.0 GOSUB 1390 :: D*-DAT» (SEG* IE* (0) . 14. 6) 1 

570 DISPLAY ATI 10, 1 I ERASE ALL BEEFl'SOLDE AU "6D*&": "(.SOLD* :: GOSUB 13! 

3B0 J-INT'N/B):: L-0 

590 FOR 1-1 TO J + l :; CALL CLEAR 

600 FOP >-l TO 24 S'EP Z :: L»L«1 

610 IP I. N THEN 630 ELSE GOSUB 1540 

62'J Nfcs I V 

630 DISPLAY AT(24, I IBEEP: "SUITE AFFICHAGE (0/N) 7 O" :: ACCEPT AT(24,231 

VALIDAT£("ON"):P* 

640 IF ft»""N" THEN RETURN 

630 NEXT I 

660 DISPLAY AT(13. 10JBEEP ERASE ALL:«3» :: G03UB 1380 :: RETURN 



670 ' 



600 ' •■:■■ FICHtEft« 

t SPLAY ATI 13. II ERASE ALL BEEPi 'SAUVESAftDE ?:-j c : CHIEF 
7]'i OPEN »H"CS1*. OUTPUT, SEOUEMTIAL, INTERNAL, Fixejj " ■" 
720 FOR 1=0 TO M :: PRINT •HESIDll NEXT I :: CLOSE - 1 
.-., AT*I3.1 . ERASE ALL:M3t ;: RETURN 

740 ■••••• 

730 !• ENTREE DES ECRITURES* 



77'j GOSUB 1390 :: >*N :: 50lDE=VAL (SOLD* J : : CALL CLEAR l| D«--JJJ/r*1"&SE01 I*. 6.3 

I : : L*-" - 

TBO FOfl I -I TO 24 STEP 4 

790 IF 1*1, UMAX THEN INPUT "PLUS DE PLACE. FAITES 'ENTER' "lA* :; GOTO 960 

£■■■ ■ :.■::=-!_*■-■■ ~: ■■ . t : ■[_.". :^1: ■•■$* : .- =;.■;•■ 

BIO DISPLAY ATO+i. 1 1 1 -NONTANTi (flOINS POUR DEBIT)" 
B2C DISPLAY AT(K*2, 1 > : "LIBELLEl " 

B30 ACCEPT AT<t ,7)SIZE<-S)BEEP VALIDATE (DIGIT. "/" 1: D* 

B4 ' ACCEPT. "I " -1. 10)SIZE(E>BEEP VALIDATE<DIGIT. ".— "):M :: DISPLAY AT : > - : . : . : 

B30 IF 5EG*<L*. l.2l="C. " AND SEG« (LI, 10. 1 ) •" /" THEN L«-SEG»<L», 1 . 3) (.STR* (VAL (SEG 

• IL».4,61 1*11!."/" .-: DISPLAY A7CK*2,9):Li 

B60 ACCEPT ATIh -2. 9i S! ZE '.-20) BEEP: L« 

970 DISPLAY AT(K*3,lllft« 

8S0 ACCEPT AT U>3. I 7 i VAL 1PATE< "ON" ) SI ZE (-1 ) BEEPiR* 

B90 IF R»-"N" THEN E=-10 :: GOTO B30 

900 1 = 1 + 1 :: E*tI)=DaT»(D*)iSEG»(STR«(N)*.RPT»(- * . 1 1 I . 1 . 1 1 >I.SEG« lL«t-RPT» '. " ",201 

. 1.201 : : S0LDE*5DLDE+M 

910 DISPLAY ATiK+3,1) 1 'ENCORE UfJE " (D/N) O" 

920 ACCEPT AT(K+3,20)SIZE(-1)VALIDATE<"0N")BEEP:R» 

930 IF ft«="N" THEN 960 

940 DISPLAY AT (K+3. 1 1 1 " *' :: NCXT K 

930 CALL CLEAR !! GOTO 730 

960 SOLD*=STR«ISDLDE): : N-I :: E* (0) =SEG*(STR» IN) tRPTt ( " -. 3) . I , 3)!/SEG« (SOLD*SRP 

T»!" ". 10).l, !0)tDOT»(JS) VRPT»!" ",16) 

970 DISPLAY AT (! 3, 7 ) ERASE ALL BEEP: "SOLDE: * .- : DISPLAY AT ( 13, 14) :USING 'I l li W t. 

»»":SOLDE :: GOSUB 15B0 :: RETURN 

980 '••••*••*••-•-••........ 

990 ■•RECHERCHE D'ECRITURES* 

1000 ■•••»»•*»••*•.*«.*»»••• 

1010 GOSUB 1390 is R-2 :: A»20 

1020 J-0 :: C=l :: DISPLAY ATM. DEBASE ALL: "RECHERCHE DES ECRITURES D'APRES 

1030 DISPLAY AT(5,S):"I.DATE" :: DISPLAY AT (7, 8) ; "2. MONTANT" ;i DISPLAY AT(9,S) 
"3. LIBELLE" 

1040 DISPLAY ATU3.B) :M2« :; DISPLAY AT(!5,20):R :: ACCEPT AT ( 15. 21 ) BEEP VALIDAT 
E("I23")SIZE{-I) :R 
105O ON R GOTO 1060,1110,1160 

1060 DISPLAY ATd.llERASE ALL: "DATE - J J/HI"rt,5EG» ( J*. 6, 31 
1O70 ACCEPT ATd.BlBEEP SI ZE <-9) VALI DATE <DIGI T. "/" ) : D» :: GOSUB 142'' 
1090 IF R«-"N" THEN 1070 ELSE DISPLAY AT12.D:" ■ :: D*-DOT*<D*l 
1090 FDR L»C TO N :: IF D»-SEG« (E» (L) . 1 ,61 THEN 1280 
1100 NEXT L :: GOTO 1230 

IllO DISPLAY AT(1,1)ERASE ALL:"MONTANT 7" 

J 120 ACCEPT AT(!,1DBEEP SIZE (-IO) VALIDATE (DIGIT. -.*-") :MTI :: GOSUB 1420 
1130 IF R*-"N" THEN I120 ELSE DISPLAY AT(2,1)I" " 

1140 HT»-SEG«(MT»I.RPT»(" " , 101 , I . 10) : i FOR L-C TO N :: IF MT»-SEG« (£• (L) . 7, 10) TH 
EN I2B0 

1130 ^EXT L :: GOTO 1230 

1160 DISPLAY AT(9, 17):"_3UR COMBIEN" :: DISPLAY AT ( 10, B) : "DE CARACTERES - 1 " II DI 
SPLAY ATClrO,23>-:A 

1170 ACCEPT AT(10,24)SIZE(-2)VALIDATE(DIGIT." "IBEEPlA 
HBO IF A>20 THEN 1170 ELSE DISPLAY AT(1,1)ERA5E ALL: "LIBELLE-- 
1190 ACCEPT ATII.91BEEP SIZE(-A>;L» :: GOSUB 1420 
1200 IF R»-"N" THEN 1190 ELSE DISPLAY AT(2,l)i" " 
1210 FOR L-C TO N :: IF L«-SEG» (£*<L) , IB, A) THEN 1 290 
1220 NEXT L 

1230 FOR 1-20 TO 24 ;: DISPLAY AT i I , 1 1 : " ■ || NEXT I 
1240 DISPLAY AT (20. I >: "FICHIER TERMINE" 
1230 DISPLAY AT(19, 1 )BEEPlRPT»(" ",2B):: DISPLAY AT (22, 1 ) : - 1 . AUTRE RECHERCHE" : .- 

DISPLAY AT123.1): "2.RET0UR AU MENU" 
1260 DISPLAY AT<24,9):M2« :: DISPLAY AT(24,22);1 : ACCEPT AT (24, 231 VAL IDATE 1 "12 
") SIZE (-11 IS 

1270 IF S-l THEN 1020 ELSE RETURN 

12B0 ►>CJ-INT(J/6>»6)«3*t ■■ J-J+l >: GOSUB 1360 

1290 DISPLAY ATM9, D:RPT»(" ",2BI:i DISPLAY AT (20, 1 ) ! " I .OK.EFFACER" 
130O DISPLAY AT(21, 1) :"2. CONTINUER LA RECHERCHE" :: DISPLAY AT (22. 1 ) : "3. MODIFIER 

LE MONTANT" 
1310 DISPLAY ATI23. D:"4. CONFLIT SUR LE MONTANT" II DISPLAY AT(24,1):M2« n DISP 
LAY ATI24, 14) i 1 

1320 ACCEPT AT(24, I 3) VAL IDATE CT 234" 1 SIZE (-1 ) BEEP: B 
1330 ON B GOTD 1340.1330,1360,1400 

1340 N-N-l :: FOR I-L TO N il E« ( I ) -E« ( 1*1) I : NEXT I :: GOTO 1410 
1330 C-L*l : : ON R GOTO 1090,1140,210 

1360 ACCEPT AT(K, 17) SI ZE (-101 VAL IDATE (DIGI T. " . *-" I BEEP: H n S0LDI-STR4 (VAL (SOLD* 
)+M-VAL(SEG*(E*(L) ,7, 10) ) ) 

1370 E*(L)-SEG*(E*(L) , 1 , 6) &SEG* (STR»(M) &RPT* (" '-,111,1, 1 D J.SEG* (E» (LI . 18,20) 
1390 DISPLAY AT (K+2, 1 ) : "EFFACER ? (0/N) O" i: ACCEPT AT (K + 2. I7)S I ZE (- 1 ) VAL I DATE ( 
"ON")BEEPtR* 

1390 IF R»-"N" THEN 1410 ELSE 1340 

1400 DISPLAY AT(K.27)BEEP: "•"■ :: E* (L) -SEG* IE* (L) , I , I 6) t"7"t.SEG*(E* (L I . 18, 20) I : 
GOSUB 1390 

1410 E*(OI=SEG*(STR*(N)!,RPT»(" ".31 , 1 . 3) !-SEG* (SOLD*!.RPl * < " " . 10) , 1 , 10) »,DOT* ' 1*1 *. 
RPT*(" ~,1S):: CALL CLEAR ti GOTO 1230 
1420 DISPLAY ATI2.4IBEEP1M* :: ACCEPT AT (2, 20) VAL IDATE ( "ON" ) SI ZE ( -I) iR« :: RETUR 

1430 '.<...................•. 

1440 •• FIN D'UTILISATION • 

1430 '•-•••••••••••••■••.••. 

1460 DISPLAY AT(13, 1 1 ERASE ALL BEEP: "AVEZ-VOUS SAUVEGARDER LE FICHIER 7 (0/N) 

1470 ACCEPT AT(14, 1 7) SIZE (-1 ) VALIDATE ("ON" ) : R* 

140O IF R*-"N" THEN GOSUB 70O ELSE STOP :: RETURN 

1490 ....................... 

I5O0 ••VERIFICATION DU SOLDE 

1310 •••••••••••..........•• 

1320 DISPLAY AT ( I 3. 3) ERASE ALL BEEP: "VEftIF [CAT ION DU SOLDE" 

1330 SOLDE-VAL(SOLD»): : FOR 1-1 TO N :: SOLDE -SOLDE -VAL (SEG* (E* ( I ) , 7, 10) ) 1 I NEXT 

1340 DISPLAY ATI16, 1 )BEEP:"SDLDE CORRIOEl " :: DISPLAY AT ( 1 6, 16) : USING "•«#••■»,• 
••18OLD6 II GD5UB 1590 :: RETURN 

1360 DISPLAY AT (►'. 1) : DAI* (SEG* (E» (L ) , 1 , 6) 1 h" M*"'.SEG* (E» (L) , 7, 1 1 ) 

1570 DISPLAY AT (K* 1 . 9) i SEG* (E* (L) . 18, 20)1 I RETURN 

1380 INPUT "'ENTER' POUR CONTINUER": A* ;: RETURN 

1390 DISPLAY AT(13, DERASE ALL BEEP: "LE FICHIER EST-IL EN MEMOIRE 7 (0/N) 0" 

1600 ACCEPT ATI14, IM)VALIDATE("0N'TSIZE(-1 I iR» 

1610 IF R«-"N" 1HEN GOSUB 460 ELSE RETURN 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 

PRENOM : 
ADRESSE : 
REGLEMENT JOINT : 



D CHEQUE 



DCCP 



MATERIEL UTILISE : 
CONSOLE: 
PERIPHERIQUES : 



MULTI UTILITAIRE MP - F ll 



Apres I'APPLE II et le COMMODORE 64, c'est maintenant 
au tour du MPF II de parlerfrancais. Avec ce seul program- 
me vous aurez la possibility, non seulement de "franciser" 
votre banc maisaussi de sonoriserle clavier, d'obtenirune 
version AZERTY de se disposer de minuscule au clavier ! 

Alain JACQUOT 

Modedemploi ; 

Une tois le menu a. I'ecran, tapez sur la louche correspondanl a votre 

choix. 

Si vous avez choisi les minuscules vous disposerez alors d'une com- 

mande tres interessante : (mode direct ou dans un programme). Si 

vous etes en majuscule, ['execution de vous (era basculer en minuscule 

et reciproquement. 

Cela permet. dans vos programmes, d'altemerles 2 modes d'affichage. 

Si vous avez choisi le clavier AZERTY voici les differences : 

CLAVIER QWERTY CLAVIER AZERTY 

Q A 

W Z 

A Q 

Z 



M 

tout le reste est inchange. 



"29 P » UAL =1 

""■3 i r • i ; : = -: them tu 
-»o urAI li ---t \z Pfitm •;•■ 
"!•: ktai - ■-£ = - i . -- ----;..- 

?S9 W p goto ;-?-}-} -:«.).?. -- 
s83 HOKE ENB *E« 



109' 



= E« 



READ 






I INC 



■xt i 



M 



1238 
1240 

i2i>a 

1268 
1279 

use 



RESTORE 












FOR 


■ 


--6-; 


TO 


li 






READ 


a 


PQK 


: i. 




NEVT I 




PEN 


BA 




CIS 


-p 


PPF -J 


•9W-7S 


POKE 


«9 


a 


OKE 


St 


.131 




POKE 


f.? 


-'ii 


POKE 


63- £53 




POKE 


66 


9 


0K6 


<; 


.64 




CALL 


768 











C103-FFFF BEVIEHT '«« . 



219 C&LL 893 

229 

239 REM VEPII 

233 AZ i 



SH ■ 



c PEEK (96) • 8> AMD < PEEK 

> > 144 >> THEN SN « 1 

239 IF <( PEEK (36*81 » ■ 8) ftND. I 

PEEK < 36882 > » 14* >> THEN SH - 1 
2*9 IF <C PEEK '36> • 16 J AMD ( 

PEEK '37> - 1**:. j THEN AZ » 1 
279 IF << PEEK <: 36368 > • 16) AND < 

PEEK r 36369; • 144)) THEN A2 • I 
499 



398 



"EM'J ET E»ANCH£HENT5 



319 HOWE 




329 OTAB 1 


HTC.E 


339 UTftB 2 


HTCB 


349 UTAB 6 




339 PRINT 


PRINT 


FRANC AIS" 




379 PRINT 


PRINT 


P ftZERTV 




399 PRINT 


PRINT 


R SQNGPI6E* 




699 PRINT 


PRINT 


ULES < W1 > ■ 




629 PRINT 


PRINT 


799 UTAB 11 


HTiiE 



a &D? ' -.it-.-, 

FOR I • I TO US 

PE"D A» _ = LEN <A«> 
IF L > I THEN 1289 
A =■ A8C A*) - 128 

POKE ADO • INC -A 
INC * INC * t 

CO TO I 288 

FOP J " I TO I - 1 

A - ASC i HID* (ft*. J.: 
POKE ADC- * IHC.A 



[HE 



' INC 



NEXT _ 

■ > -ASC ' RIGHT* l«».l ) 
POKE iCC • INC, A 

INC • ZNC ♦ 1 
NEXT I 



1399 Pen HOT; ILE5 i 8999 - .■ 

1329 POKE 68,883 p:ke 61.123 

1339 POKE 62.143 POKE 63-133 

1349 POKE 66.146 POKE 67.193 

1339 CALL 7£8 

1399 

1499 = En POUR ERROR Ef SREA-; 




POKE 38488*48 

POKE 39729.32 
POKE 39722,62 
POKE 33724,69. 
POKE 59726.62 
POKE 38713, 63 
POKE 39737-32 
POKE 33739-34 



POKE 38719. 35 
POKE 39721-6$ 
POKE 98723.82 
POKE 38723,8! 
POKE 59733.65 
POKE 397?6.3£ 
POKE 58733, 65 
POKE 39973.31 



PQ.TCHS lEiSOGES D'ERRE'J* 



IDEM 

33919. 13 

32329,28 

32937.33 

34383.46 

36734.69 

389*2.71 

52532.63 

3*36. 

3461 



POKE 543-i8-33 



113 

POKE 37296.126 
POKE 34974, 142 
POKE 53323. 13* 
POKE 33769. 173 
POKE 33237.199 
POKE 31827.219 
POKE 5*977.223 
GOTO 399 PEN 



3903 PEH 



KINUSCULES I 



3818 PESTOPE 

3928 FOP I - 1 TO 198 

5939 READ At NEXT I 

39*9 

3059 RE" CARACT FZ8*-r488 ■ 



3963 
59 78 
3369 
3098 



poke ■ 

POKE ■ 

-■:■ -: ■ 

CALL ' 



'-'-'- •":■ e 6: M 



5118 Ren -:::-::--:;-. k 



5149 
5138 

5169 

5;?9 

3289 

3218 
3229 
3239 
5248 
3238 
3263 



"OP ! - :"-;i "0 T7«f.; 

c £-d - -:•-::- • z • : 
- :■ ■- 61 --:: :*-; 

=En :-i: _ :-_: -:-*: ;■- z- 

for i - : ro --: -E-: -i 
FOB I = 36928 Tfl I693S 
RCAO - -:;::_ mext 

POKE 1013- 76 POJ i 1814] ■ 
POKE 1915 :*i 



7313 ON SN (WTO 71-30 

7323 POKE 3656*. 173 POKE 16863 

7338 POKE 36566.192 POKE 36867 

78*8 Z * PEEK C36> POKE 36868*4 

7838 Z ' PEEK <37> POKE 36369.: 
7869 

7863 REM DETOUPnES L-. BOUTlsE i 



7188 


hohe 


7118 


UTAB 18 PRINT -6TTEnT1:n. 


DEJi 


£0NOR[S£ '* 


7128 


FOP ( » I TO 3 


7138 


FOR J ■ 1 TO 38 


n*)8 


A - PEEK ( - 16336) NEXT 


713* 


FOR J - 1 TO 69 NEXT J. I 


7168 


GOTO 399- REN 


88M 


REH CLAUIER AZERTY 


MU 


ON A2 GOTO 8128 


M28 


RESTORE 


8829 


FOR I • 1 TO 486 


5 936 


READ A» NEXT I 


3898 


FOR I • 36889 TO 36926 


M6I 


READ A POKE I. ft NEXT I 


NM 


Z - PEEK -36> POKE 36881. 


•:a?e 


Z • PEEK <37> POKE 36S82. 


8188 


POKE 36. 16 POKE 37. 144 


-; i n 


« » I- GOTO 398 


8U8 




8128 


HONE 


8138 


<JTO| 18 PRINT -ATTENTION. 


DEJi 


AZERTY '* 


8148 


FOR I « 1 TO 1 


8138 


FOR J - 1 TO 30 


8168 


A - PEEK < - 16336> NEXT 


8178 


FOR J • 1 TO 68' NEXT J. I 


1188 


GOTO 399' REN 



19880 DaT* 
3.3. 144. 247-! 

0.197.62.163.61 .229.63.238. 68- 288 •£ 

61.96 

19398 DATA 23344.91. 192-169. 9. 133 
69. 64. 113. 61. 169. 233 133. 62 169 126 
63. t<9-9. 133-66. 169. 1*3. 134 •:'.:•:? i 

32.9. 3-96 
'.S3 19 
19320 sen ROTS CLE-: co i--:;: FR«n< 





:-•- 


• 




■■:.-. 


•ATA 






19828 


•ATA 


■ . 






:--- 


*.---.. 




19544 


:--- 






19198 


:-■- 


e:m« : - - - ; - ■ 


:■■■■. 


Bat* 


•■' : -~~ :--:.--:-: • 






:--- 


■-; -- -. -:-,-> 


: E -" - 


r -:■:■? 


:-- 


-"-:•"-"•: BCt •:*-' 


- . . 




:--- 


---:- ■: EC -:: :ct 




19*88 


:--- 


---:■' ■-:■; .? ;-:- 


■ ■ 


19918 


:-:- 


-": .--- ,£ in 








ECRIT :;• - LISTS 




:??3* 


:-•- 


'■': --* 




19S49 


:-•- 


-.:-•: em • :vf.; 




:SS33 


:--- 


ET ■ OU 




:--- 


- : r -: : - •-:-■.-_ 




19978 


DATA 


Ew cos ■:■ tw . 


N - 


19*38 


:--- 


lom : - -. i - 


Ml 


19999 


:;t. 


:-. :-ei :-- : ---» - 




23399 


BATA 






23319 








:9928 


sen 


WESSACE3 B'CtfiC 


: 


£9339 


DATA 


*-iJ75£ i5 pom 




29933 


DATA 


SYNTAXE 




29869 


DATft 


KTOtM ;5 DA-SP 




29879 


DATA 


PUB D "IHW1 




29339 


DATA 


UALCU* EJCOnEE 




23898 


DATA 


T£:e:::£:--;n- 




28893 


DATA 


nENOIRE ^lEIne 




29193 


DATA 


LICne imcomnw 




28118 


DATA 


HAUVAIS INDKE 




23128 


DATA 


TABLEAU REDIH 




28139 


DATA 


DIWISION P ZEPO 




28148 


DATA 


DIRECT ILLEGAL 




29139 


DATA 


DESACCORC DE TYPE 




29168 


DATA 


CHOINE TR LOHGUE 






DATA 


FORHULE TR CONPLEXE 


29189 


DATA 


N£ PEUT CONT 




29199 


DA TO 


FONCT INCONNUE 




£9193 
23299 


REN 


OATftS NINUSCULE5 





39899 DATft 3 4 -8. 29 . 32-69 34 . 68 . ■> 2 : ' 
3. 34. 34. 34. 18 9- 9.9. 88). 2-2. 2-68-8 H "2 
69. 3*. 34. 34. 69. 9 -9, 8. 28- 3*. 62. 2-69 9 2* 
36-4-38. 4. 4. 4. 89.99.23-34-34. 68- 12 25 89 

39919 BATA 2- 2. 39. 3* . 34 . 34 . 3* -9 8 9 12 
9. 6, 8. 28. 8- 16- 9. 24. 16. 16- IS. 12. 8. 2 2 T4 
18. 14. 19- 34. 9. U.e. 9. 8- 8. 8. 28. 38 9. -4.* 
2. 42. 34. 34. 9 -8. 9- 39. 34-34.34. >4. 04. 4 26 
.34 

38938 DATA 34 . 34. £8 4 .4. 19. 1*. 34 '9 C - 2 
■9. 9. 69.. 34. 3*- 69. 32. 32. 9. 9. 9- 38. 6. 2- 2- 2 
4. 8. 8. 69-2. 29. 32-39. 4. 4. 4. 38-4.4 M :» 4 
.9.9.34.34.14.39.44.4.9.9,34.34.34.29 8 



2.16,8 
18^9 79 



18983 REH ROUTINE LH -> CU 



'IER i 



■-:■-■ 



48998 DATA 32 . 13 . 231 .281 . 193 ■ 248 . 3 . 169 

299.96,281.299.293. 3. 169- 193. 96-291 . 21 8- 

283,3, 169.213.96.291 -213.298. I.169>2H 

6;28l. 283. 293. 3. 169.186.96.281 I8l N 

.169.293.96.32.8 

45999 

43914 PEN ROUTINE LN -> U1 



38999 DhTft 201 . 77 . 206 . 24 . I 71 , 
.242.244.9. \.69.£*£. 14 1.2?. 243 i 
169. 146- 1*1. 2*. 2*0- 12. 177 .10. 



■ i« ; 81 



MASTER 



Un super mastermind au graphisme evolue et utilisant le 
crayon optique. Ideal pour les forts en theme ! 
Les regies du jeu sont dans le programme. 

Pierre MILLARD 



-TO ^ 



4 CLEftP.,2 
3 CL3 

6 C'EFGPI'8'*8. 126. 126; I26< 126, ;Zb. 126.8 

7 rjEFGPI'l «6. 8.3.3.24,9.0.9 
10 3CPEEN 8,7.7 



•••■•' 



PRCSENT&TIOK PU 



JC J 



13 CLS 

28 LOCATE 9,3.9:ATTPB 1,1 1 AtIIIT*IM8TEiml 

Nt-tATTPSa.S 

39 LOCATE 6>14,0:PP!NT'P(iUP COHHEMCE&:AP 
PUYEZ SUR UNE TOUCHE..' 

48 Y-RN&sir INKEYt< ""THEN 41 ELSE *0 

41 CLS ILOCATE 3,I*.8:PPInT-VOULE; VOUS 
LES PEGLES C'U JEU "0 ou «>•***- JNpijTt. • 
)HF A»O-0" AMD AfO'N* THEN 41 ELSE IF 

ftl-'O- THEN 2883 

42 CLSiLOCATE 2. 3. 3> PRINT "VOUS P0UVE2 CH 
OISIR L« DirriCULIE t>U JEW 

43 LOCATE 2.3.3iPPINI-vrjiJS AVEZ LE CMOIX 

ENTPE 2.3.4.3 cu 
6 COULEURS PEPAPTIES BUfi i ■ ~ . ■< 

.3.6 ou 7 CASES " 

44 LOCATE 2, I8.e:PRINI"0UEL3 SONT VOS CH 
OIX * 

43 LOCATE 8,13,8!INPUT "HCiHJRE It CO'JLEU 
PS -JAMF A<a OR A^6 OP - INT'-. THEH L 
OCATE 8,12,9:PPINT'Un tndir o»»nt «"' 
r« 2 «t 6-.-iPPI«TSPC'*9':C0T0 43 

46 LOCATE 9. 15, Oi INPUT -N0MBP.E C-E ChSES 
"IBMF B'-2 OP B>? 0» B'-INT'B' THEN LOCA 
TE 9, M.OIPRINT-Un «nti«r eOBPrli «ntr* 
2 ct 7..-!PPINTSPC'48':G0T0 46 

47 LOCATE 6. IB.eiPPINI-POUR CONTINUES 1- 
PPUYE2 SUR UNE TOUCHE. . " 

46 Y-RNO =ir I«t£Y«<>" THEN 38 ELSE JB 

49 '••••RECHERCHE [''UNE CONB I NA I S0N»4»4 
58 FOR 1-1 TO D 




INT'! 1888«PN[^N0C' 1 



76 NEXT I 
73 CLS 
93 C-8 

3: •*•*>«•••••• 

32 '•DEFINITION ET ECPITUPE DES ZONES • 
93 '• POUP LE CPAYON OPT 1 QUE • 

34 

58 TOR I «8 IOA-1 

188 PEN U(C. I68)-'C*3?. 1*1 - 

110 B0XF<C, I68;-'C*3*. 191 -. I ie0xr<C*8. 17 

1<--C*3I,188>.7 

128 C-C'48 

130 NEXT I 

131 PEN 6M288,72>-'3i9.?5-iP£N 7:280.1 
84>-<319,127) 

132 80Xr'288.72>--319.93>,4iBOXF<288.75> 



(311,92), 



'319,127 



■ 80X1 ■ BW, 



133 8OXF<289,104) 
87>-(3II.ia4>,7 

134 LOCATE 36,I8,8!PPINT-EFF-!L0CATE 36, 
14.9IPR1NT-FIN- 

136 '•••••••«• •••••*••••• 

137 '• PROPOSITION FAITE PAR LE J0UEUP4 



ISO 1-0 

181 I-I«lir0P J-I TO 480INEXT J 

182 LOCATE 9. I ?. 0! PP 1 NT " r.ONNEr VOTRE PI 
POSITION, .. "IPPINT -iPC-49> 

193 ir I>8 THEN LOCATE 0, 1 9, 01 PR INI "Pri 
ttPMir 



l'J«Z 1 



FIN 



_.. EFF - 
1080.1109. 1200. 1380,1431 



200 G0T0198 

218 GOT0I8J 

213 FOP 1=2*3 T015H 

HR* L£9)|tHEXT I 

220 LOCATE » ( ;y. ■■■■.'■■ 



■_..■:-■- ■:- 



350 G=8!H=9!F0R 1*1 TO 6:F( 



' FOP 1=1 TO 8 

1 IF F(I)-1 THEN 480 

1 FOR J-l TO 6 

' IF G<J>"I THEN 398 

1 IF E<I)-U(J>THEN H-l 

' NEXT J 

1 NEXT I 



...... 



588 LOCATE 16,K«2,0iBEEP 

510 FOP 1-1 TO G 

320 COLOR IsPRINT CKfttU28>JSPf 

538 NEXT I 

340 FOR I»l TO H 

558 COLOR 2:PPINT CHRf < 128>: 3PC< I >f 
368 NEXT 1 

570 IF G'8 THEN LOCATE 0. 1 8, 8: PLAY -fOHl S 
O":C0L0R 8IPPINT-CEST GAGNE.. . ' -:PRINT 
SPC(40>:G0T0383 

580 IF K*H THEN LOCATE 0. IS.OlPLAY'Sf 
DO'lCOLOP 0SPRINT-VO1CI LA SOLUTION I 1 
TOP I-ITO BlCOLOR M<I>!PPINTCHRI< 128.1 
EXTHPR1NT SPC<*8HG0TO393 
334 GOTO 130 

383 LOCATE 8.19.0tCOLOP ^IPRINT'POUP UNE 
mUTRE PHRTIE mPPUVEZ'iPRINT- 

SUR UNE rOUCMK'l If tMKEYI 
n 383 

386 CLSiLOCATE 0. H.fliPPINT-GnRt'EZ VOUS 
L» HCHE DIFFICULTE -0 ou N>" iAI«I»PtjTI' 
IMF AI--0" THEN CLSIGOTO *7 ELSE IF 1 
--N-THEN 42 ELSE 386 
398 GOTO 130 



.,-,. 



***•. 



ANALYSE £>ES PROPOSITIONS 

982 '• TAITES PAR L ' INTERRED I A IRE 

983 '• DU CRAYON OPTIOUE ET ECPITUPE 
964 *• OU TEXTE CORRESPONDANT 

903 •••••••••(••••••••••»*»»t 

1800 IF I>8 THEN 190 ELSE E<I>«0'LOCA 



2»I- 


,K*2,8 


COLOR 


0IPR1NT 


CNRI 


128M 


cm 


OP 8 


7tG0TO 


218 










1108 


ir i>s 


THEN 


96 ELSE 


1: . 1 ■■ 


IiLOCATE 


2»I- 


,K*2,0 


COLOR 


l: PR INT 


CWftf 


IB8» 


in 


OR 8 


71G0TO 


216 










1288 


IF I>8 


THEN 


96 ELSE 


ei 1 1 


2IL0CATE 


:•: 


.K*2,e 


COI OB 


2IPRINT 


CHJM 


128>i 


rm 


or e 


7:G0TO 


216 










1308 


IF !>B 


THEN 


98 ELSE 


F. 1 1 


31L0C 








COLOR 


?:PP|NT 


CHRf 


128>i 


rot 


OR 


71C0TO 


216 










1408 


IF I>8 


THEN 


96 ELSE 


L' I ■ 


■4IL0C 




2*1- 


,K*2,9 


C0L0P 


4JPRINT 


CHRf 


128): 


1 (H 


OR 8 


7tG0T0 


218 










1509 


IF I>B 


THEN 


90 ELSE 


C<I> 


3>L0C 




881- 


.K*2.8 


COLOR 


3IPRINI 


CHM 


128>I 


COL 


,:l- | 


7:G0T0 


216 










|6«g 


i-i-n 


r 1 -0 litis : 


9 ELSE LOCA 


2»I- 


,K*2,8 


PRINT 


■tl>l- 


iGOTO 216 




: 799 

5 

::-oo 

1961 


IF K-B THEN 


I-I'UGOTO 1 


H ELS 




'• REGLES 


DU JEu 






• 


: :■<'.: 


' ••••• 


• •*•* 


4***l»l****l 






, ..fi< 


CLS 












2818 


PRINT-VOUS A 


tZ A DECOUVi 




BINAISON- 












2028 


PPINT'D'UN CERTAIN N0H8RE 


DE COULEU 



2636 PPINT'REPARTIES SUR PLUSICUPS CASES 



2660 PPINT'DE tOULEUPS •) L'ORDINATEUP " 

2076 PRINT'A L'MIDE DU CRAYON OPT 1 DUE" 

2896 PRINT 

201i» PPINT*L'ORDIN.'.rEUR VOUS REPOND" 

2180 COLOR 2IPPINTGRI'8'( ICOLOR OlPPINT" 

POUR UNE BONNE COULEUR NAL PLACES" 

2H8 COLOR I IPRINTGPK 'JtCOUIR OiPUNT" 

POUR UNE BONNE fOULCUR 8IEN PLACtC ■ 

2120 PPINTiPPINT 

c'I30 PRINT-POUR EFrrtCEP Lh C'ERNlEPr COOL 

EUPl- 

2140 PP1NT-P0INTE2 FFF ■ • 

2139 PRINT 

2160 PRINT'POUP DLUmNI'EP LH REPONSEf 

2170 print-pointe: riN- 

21B9 PRINT 

2198 PRINT-AU 80UT DE 14 CSSftlS 



1 REPON 



SC 



2206 PRINT-EST fONNEE HUTONAT I 0UEJ1ENT ■ 

2263 PRINTiPRlNI 

2216 COLOR 1" PRINT-POUR CONTINUER .«PPU 

YET SUA UNE TOUCHE-iCOLOP 6 

2238 IT [NKEYI--- THEN2230 ELSE 42 ■ 



DES CHIFFRES ET DES LETTRES 



Un programme ideal pour les amateurs de ce jeu classi- 
que qui rencontre le succes que I'on sait. Votre MZ80 va 
vous aider a faire sactiver, si necessaire, vos petites cellu- 
les grises ! Materiel necessaire : un dictionnaire et du 
temps... 

VILLAIN 

LE JEU NE POSE AUCUN PROBLEME 
LE PROGRAMME 

51 boucle permettant de lire les regies. 

52 P- 242 NOMBRE DE MOTS QUE CONNAIT UORDINATEUR. Si vous 
ajoutez des DATA modifier P en consequences. 

69 70 affichage du pave en fonction du nbre de lours. 

74 choix aleatoire d'un mot dans son repertoire ce mot est XS, c'est a 

dire le mot ZS qui a ete melange. 

80 81 compteur horloge (la boucle t a 857 avoisinant la seconde). 

100 notes fin du temps de reflexion. 

101 104 demandeet analyse votre reponse(PSEUDO analyse carc'est 
a vous de specifier que votre r6ponse est vatable... undicocadoit ser- 
vir). 

105 108 compteur deptsCI joueur 1/C2joeur2 

109 donne sa reponse : 2S 

1 1 affichage du score. 
113 114effacage. 
116compteurde tours D+1. 
125 CHIFFRES. 

125 1 26 TIRE 5 PLAQUES valeur de 1 a 10. 

127 131 TIRE la sixieme plaque parmi 25 50 75 100 

132 169 CHOIX DUN CALCUL 

204 205 affiche les plaques. 

300 debut des DATA. 

541 RN. 

POUR LES DATA ZS represents le mot d'origine ex. : ABONDANCE. XS 

est le mot dans le desordre. 

UNE premiere version avaitetefaitedecettemaniere; choix deZSpuis 

deeoupage dece mot et affichage des diff6rentes lettres qui lecompo- 

sent de maniere aleatoire. C'etait beaucoup plus elegant mais bi'en 

moins pertormant en pratique !!! L'affichage aleatoire etant beaucoup 

trap prache du mot d'origine ML. fonction RND ???!!! 





NIZ80 



2 PR1NTT5 Ef *2 EF F » ?E 
C5 C? ' 

3 PRINT-CSB383 81 83 EFC3C3C3C3 C3C3C 
-•"•■ 2 63337iC.CS C7 " 

4 PRINTT5848S C3C3C3C3C3C3C3C3C3C3 
C3C3C3 S483C3 C? J" 

5 PRlNT'CS 83 B3 91 Bl BO 80 98 88 

C? i_" 

6 PSIHT-C5 B396BC 

C? - 

7 PRINT'CS 368C83BB 

C7 * 

8 PRINT'CS ECC48489 

C7 " 
3 PRINT'CS EFC3C3C3C3C3C3C3C3C3C3C3C3C3C 
3C3C3C3C3C3L3LJC3C3C3C3C3C3F8C7 " 
t8 PRINT'C5 C50ES CNlFFRES ET DES LETTRE 
SC7C7" 

?i prinT'CS ECC4C4C4C4C4C4C4C4C4C4C4C4C4 
C4C4C4C4C4C4C4C4C4C4C4C4C4C4DflC?- 

12 PRINT'CS C7 
C7 " 

13 PRINT'CS C? 
C7 ' 

14 PRINT'CS Dfl 83 88 83 B8 83 a 
8 C7 " 

15 PRINTC5C7 £5 787B7B707878787B78CCC8 

cacatscacacacscB c? - 

IB PRlNT'C5C7 C5 CSEFB4 C5C3C3F8C7 E8 
E6 C786 C7" 

17 PRINT-C5C7 CS C5C5 888888 C?C? C3C3 
C3 C7BF85C4EFC3FBC?" 

18 PRINT*C5B3C3C*S88 CSC5 C.7C770 C7C7 

C7 C50C7C7" 

19 PRINT*C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C 
3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3" 

20 F0RI-1T068B8;nEXTI 

25 REn«SHARP fl! B8K SOUS BASIC 5825* 

2fl PRINT'B* 

27 PRINT'DESrREZ VOUS LP PRESENTftT ION DE 

CE JEU?* 
2B INPUT'UQTRE REPONSE 0=OUI ]»N0N"ifl 
23 IFA-ITHEnPRINT-DPATIENCE JE ...n'INST 
PUIS' 
3B IfA-lGOT052 

31 IFflO8G0T02B 

32 PRInT-BOEUX EOUIPES N' I CONTRE N2.SU 
R LE' 

33 PRINI-GRflPHIClUE EM MAUT A GAUCHE UOUS 

35 PflINT"PEnARQUERE? UN PAUE BLANC, CELUI 
Cl- 

37 PRINT" InOIQUE L'EQUIPE QUI PARLE* 

38 PRINT :PRINT"UNE nANCHE COnPORTE:" 

39 PRJNTTflBUB);^ • •(-:•< <*• l»*trM* 
*8 PClNTrfiB(ie)i' , i t*rim <*• cn;r/rt»" 

41 PRINTTABtlB) , '4 f.ri-c O* l«tti-«i" 

42 PRInTTAB(1B),"t i.ri« f cr. i *fr««" 

43 PRINT :PRInr*-POUR LES LETTRES A LP. QUE 
STION:" 

44 PRINT-Lo«1u.^r O. =• ™t' UOUS TAPE? 
LE- 

45 PRINT'TNlFFPE CORRESPONOANT AU NOT18RE 
DE*:PRINT"LETTRES- 

40 PRINT'S LA OUESriOH SUIUANTE SACHE? 
UE*:PRINT"B-OUI ET 1-NON' 

47 PRINT-FOUR LES CHIFFRES A LA OUESTION 

4B PRINT-Iniroauli.r c. co*pt« UOUS TAPE 

49 PRlNT-LE NOHBPE QUE UOUS AUE2 OBTEHU 

ET- 

58 PRINT"NON PCS L'ENSEHBLE DES OPERATIC 

NS" 

51 FOPI-1TO22B00-NEXTI -A-1 ■G0T023 

52 P-242:0In>«[P],?«(P)."(«J 

53 FCRK-I TOP 

54 REP.rJ2«CK),X«CK) -NEXT/ 

55 HK=8=PR!NT"00E5 CHIFFRES ET OES LETTR 
ES-iD-1 

56 PRINT "FFC3C3C3C3C3C3C3C3C3C3EFC3C3C3C 
3C3C3C3C3C3C3E e C3C3C3CDC3C3C3C3C3C3Fe-' 



5? PRINT-CSEOUIPE I C5E0UIPE 2 CS TE 

MPS C7 ■ 

58 PRINT' , EFC3C3C3C3C3C3C3C3C3C3EFC3C3C3C 
3C3C3C3C3CJC3£i-C3C3C3C3C3C3C3C3C3C3F0- 

59 PRINT-C5 CS CS 

6B PRINT ■■ECC4C*C«C>ra t -4C4r«C4C4FCC4C4C4C 
4CC4C*C^C*CiErCaC'>C4CiC*CaCC4CaC4D0-:P 
RINT 

61 PR!NT i 'f'-"C3C3C3C3C3':3C3C3C3C3C3C3C3C3C 
3C3C3FB EFCX3CX3C3':3F2" 
§2 PRINT"C5 C7 C5 C 

7' 

63 PRIHT'ECC«C4MC4C^C'M:4C4C4C4C4C4C«4C 
4C4C4D1, ECrsC4C"C4r4CiD<i- 
~%8 F0RJ-U04 

69 IFD^2-lNTCD^2JTNENPRINr-flBB" ;TABU0) ; 
' ' ;TPBC20);"F' ' 

70 iF0•2OINTC0•2)^HEHPRINT"BB■'■ ;TOBC10) 
;"FI ■;Tfle(2a) ;■■ " 

74 U4 = INTCP*RNrJtU)'l 

75 PRJNT"8- 

76 PRlNT"B0Oa9flae";X*CU4J 
76 nuSIC^flCD" 

73 PRINT^BBBBB" ;TPBC23J ;* 

88 FORK»ITO50:PRINI"8BBBB';TP8f.243;< 

81 F0RG=iT0BS7:NEXTG:NEXTK 

108 nusiccoE 1 ' :pRiNT'*flSBaa- 

101 INPUT-OUI P. LE HOT LE PLUS L0NGC10U2 
)';E:IFE>2G0T01B1 

102 PRTNT :INPUT"L0NGLEUR OE CE HOTf.2-9)" 

183 IFLn>9GOTOI02 

184 PRINT UNPUT-CE rtOT EST C0RRECT?tB-1 ) 
";C0:IFC0>IGOT0IB4 

105 IFCE=1)*tC0=BJTKENC1-C(»Ln 

106 IFCE»2)*CCO»0)rHENC2-C2*Ln 

107 IFCE-n*CC0-1)THENC2-C2*LrI 

108 IFf.E-2)*CC0-1)TMENCI-CI'Ln 

103 PRINT :PRINT-J'fll TROUUE. . - " ;ZttU4 1 
1 !0 PRlNT'MfflBffl";T«HC4] ;C1 iTflBC13);C2 

NE TOUCHE' 

112 GETR»;IFR«-"'TiOT01 12 

113 PR!NT-iBfflBOBBBa»a- :F0RK-ITOl3 



14 PRINT- 
■ :nEJ<TK 

18 D-OM 

1? IFD-6G0T00B 
IB IFD-1 IG0T0226 

19 NEXT J 

25 FQRrt-1T05 

26 PCn)-INTn8*RN0C1 ))*l -NEXTrt 

27 H-lNTC4*RN0t1 )J»1 
26 IFM»I TMENftCfll-25 
29 IFN-2TMENflC6)-5B 
38 IFH-3TNENfl[6)-75 

31 IFH-4Tm£N/1[6J-IBB 

32 U1"lNT{?*RN0t1))»! 

33 IFUI-1GOT0143 

34 IFU1-2G0T0147 

35 IFUI-3GOT0151 
35 IFUI-1G0T0155 

37 IFUI-3QOT0153 

38 IFUI-8GOT0163 

39 IFUI-7GOT0167 

43 U2-tPC1)*flt2)-flC3J)*WCS)*fl(6)-flt4) 

44 G0SUB13? 

45 PRlNT-t- jflc i J i'*- ;nc2) i"-" ;«C3] i")" ; 
*";flf.5)i'*- ;flt6)i--" ;flC4) 

40 GOTO! IB 

47 U2-(«C6)-A( I ])*CflC2)»M3)J-fl(1J*AC5) 

48 G0SUB137 

49 PRINT-rjflC6);"-';*C1 )(">»<" ;*C2) ["♦ 

inc3);-)-";**C4)i-*- jflCS) 

58 GOTO MB 

51 U2-IHr>)*rH2)*f.i4C3)»flC4])»(P.C5)*flC 1 )) 

52 G0SU8137 

53 prinToio) ;■■*■' iflt2) ;'*f ifliU};"*' ifil* 
i")»f!N(5);"»";fl!l]i"] r 

54 GOTO] IB 

55 U2-Crt(0)-rt(3)-flC4)-fttl n*fl(7)-flC5) 

50 G0SIJB137 



;TABC18 



' PRINI-i 



K6); 



flC3); 



'tUMIJ 



«C1);"Ji"i«C2);---in£5) 

158 GOT0 11 8 

159 U2-8CB)*PC3)-flCIJ-<'C«C2]«flC43)-ftt5) 
108 G0SU8I37 

iBi pRiNTP.c6)i-*';*C3);'--i«cni*' f C*^t 2 
)i-*-;«C4);'')-'i«C5J 

162 GOT0I18 

163 U2-CAC I )»rtC2)-flCSJ)*flCfl)-At3J 

164 G0SU8137 

165 PRlNT-C-iflttJi"*';8C2Ji — *i«t5)j*)** 
;«C6)i--*;fl(3) 

166 GOTO) 18 

187 U2-CMn»P.C3))*M4)'t*r.6)«PCSJ-M2) 

168 G0SU8137 

169 PRINT* t* ;«C I );"♦' ;«3)i*J**i«4' '•"+' 
;«t6); J t-;^C5)i*-" ;nC2) 

170 GOTO110 

197 !FCU2<108J'(U2>333DGOTO!2S 

198 IFHK-9THEnPRINT'BBB*;TP.BC103;" "iTft8 

(2eJ;"Fi H 

193 IFNK'9GOTO204 

288 |FD/20lNTOt/2)TNENPRINT"l 

);"F1 ■ ;TPBC2B);- 1 - 

281 IFD•2«INT£X'7)T^^£NPRINT-BSB'■ ;TrtBtl8) 
;■' '■ ;TftBt2B);"Fi ■ 

204 PRlNl-BBBBBBBflBB 

205 PR]NT ,- BB8BBaBtMia' ;ACl);flt23i'*t3);PC4 



);flt5);flC6) 

286 PRlNfffl ' ;TfiBC22KU2.«K'9 

208 nuSIC-flCD" 

209 PRINT ^ BBBBB"iTpBC23)i'■ 

218 F0RK-lTO5B:PRINT , 'Bi»BBa* ;Tfl8C24J |K 
F0RG-1T08S7:nE>!TG «EXTtC 
12 nuSIC'CDE' 1 

INPUT'rlEILLEUR COHPTE CORRECTt 1 -2)- 

5 IFE>2GOT0214:PRINT 

6 INPUT-INTRODUISER CE COnPT£:";CP 

7 IFCE-1 J*tCP*U2)TNEMC1'*CUB 
IFCE-2]*CCP-U2)THENC2-C2<-8 
IFr.E-1 ]*CCPOU2)TNENCl-Cl*6 

228 IFCE-2)*(CP«U2)TNENC2-C2*6 
222 IFCP-U2G0T0I IB 

224 PRINT :PRINT"O0ICI UNE SOLUTION ■" ^PRI 
NT 

225 RETURN 

226 C1-0:C2=0 

227 INPUT-UNE «JTRE PARTIEC 1 -0)?" iPn 

228 IFPP.=0GOTO5S 

229 PRINT-0":PRIHT:PRINT"A 8IENT0T "■ 

PRINT :PRINT 

308 OftTArtBONDANCE , NNECBOAfl 

381 DATflABOIEnENT.T E N rt fl 8 I E 

382 OATftrtBOOnlNAL.O « L A 8 H I D M 
303 OATAACCABLANT.T PCNBrtLCfl 

384 OOTAACCELERER.L RflEERCEC 

385 DATAAEROPORTE.R OETRflDEP 

386 OATAflGRESSlON.R E S N fl I S 

387 OATiWPRENORE.R DEPNEPAR 
30B OflTflflUENTURER.R UEflNURET 

309 OflTABETTERPAJE.U RTEflTEBE 

OflTABIOPETRlE.n RIOE I8TE 

1 DftTABIPOLAIRE.L R E I fl P I B 
7 DATflBOUBOULER.L EUBBOURO 

3 DATriBRANCHIES.S B R E H I N A C 

4 OflTABREUIAIRE.B £ M E I « « I 

5 OflTflBROOEOUIN.N 8 R I U Q E 

6 DATACflPTIUITE.T ETUI I P C fl 

7 OflTflCflSSEflENl.T SSHECflEN 

8 DflTACERISETTE.T E E T E R S C I 
3 DflmCHflTfllGNE.C E I T ft G H N fl 

320 DflTflCISELEURS.S P I C L S E E U 

321 DflTftCONFRERIE.E R C N E F R I 

322 DftTACORBILLor.L ft T L R I C fl 

323 DftTACOULEUURE.U LCEOUUER 

324 DftTftOECOUPOGE.C EftPUOGOE 

325 DflTftOELISSftGE.S S D L fl E I O E 

326 OftTftO!GEST10N,T E I G I H S 

327 DftTftDIUERGENT.E U I R G N T E 

328 DftTft?,S S E S L R U I G 

329 DATA?,* E n T H I R 

338 DOTA?, TNABIROLU 

331 DATA7.E U S E I R A C N 

332 DATA?, ILELTERTS 

333 DATA?. I I R L P R N t 

334 DflTA?,T A I S N R S L 

335 OATA?,S N U I R T E R 

330 DArATREneLorE.F riRroTEBL 
337 DATATRANSP1RE.E T A R S I R P N 

339 DATA TRESORIER.R R S E T R I E 

339 DArAlnOUCTEUR.R N I E U C T U 

340 DAT AK J LOHEIRE , OLM I T.ERKE 

341 DflrAUULCANlSE.U C I N E U L A S 
347 OAIAU0LA11.LER.L L L I R E ft U 

343 OATACEnDREUSE.E ERDENCUS 

344 DATACASSQNADE.S SAEOCNOfl 

345 OATACAUIIONNe.N A I T N E U C 
340 OftTACEGESlnAL.E C E n L S ft G I 
347 QflTAGI8EL0TTE,T E T B I L E 



348 OATAGLISSIERE.S S C R E I I L E 
343 DATflGERnftMIun.n N I E G R fl U N 
358 DATAGLOSSAIRE.S R I G L S fl E 

351 DATAlNEfFflBLE.F E I F L B N fl £ 

352 DftTAINOUSTRIE.N I S T U E R D I 

353 DftTAlNOlSCUTE.S C E M I I D U T 

354 OATAINCOTFRIS.P CHI I n R S 

355 OATASPONGIEUX.G P I E X U S N 

356 OftTASOUSCRIRE.C U S S R I E R 

357 DATASOUSTRAIT.U S I A T R T S 

358 OflTASOUTENANT.N NTUSEOAT 
353 OATASPIRITUEL.R L T I I E U S P 
308 OATATERnlNflLE.n E fl L R T I E N 

301 DATAFILiriRflNE.I E N G ft F R I L 

302 OATftFINALISTE.F L fl I E T S N I 

303 OATAFISCALITE.I S T fl C I E F L 

304 OATAFLAGELLER.R LGfEALLE 

305 OATftFLflGRftNTE.R LGFEftNflT 
360 0ATAFERRA1LLE.R L E fl L R E I F 
367 OATflFLOTTPNTE.T EftTNTFOL 

8 DATftFOLLICULE.O L E I F L U L C 
3 OflTAPROnENOlR.O R n E R I N P 
8 DATAPR0NAT10N.0 R fl r N I N P 

1 DflTflPRONOSTICR C T I S N P 

2 OATAPROPn&ULE.O RGLAUPEP 

3 OATAPRESIDENT.T S E D N R E I P 
1 DATAPRETRESSE.R STESEPER 

5 OATAPROSATEUR.O RftSUREPT 

6 DflTAPROSCRIRE.O R S E I P R C R 
? DATAPROCONSUL.R OUSCLONP 
B DATAPSAtnODIE.E S L A n I D P 
3 DATAPROSELT.TE.O PTERSTEL 

8 OATAPUERPERAL.U PLRAEPRE 

1 OATAPTROXTLEE.T EELXOPR* 

2 OATAPTRRMlOUE.l ERHRPTQU 

3 ORTAPULLOROSE.O RULPLOES 

4 DftTAPRINCIPAT.R I T P fl I C N P 

5 DflTAUER9ALIS£,R U fl L B I E E S 

6 OATOUETILLANT.T EHHIIN 

7 DftTftUEUGLAIPE.E R I L fl G U U E 
Et OATAUEPnJUORE.F R I U rt o' E U R 
3 0ATAUN1U0C1TE.F U I T U N C ] 
S DATATUN1CELLE.E U I 1CLEU 

1 OATAUNlCOLORE.f R I LUOHCO 

2 OATACLARIFIER, I R ft L C I F R E 

3 DATACOAGULANT.O CGTNftULft 
1 DflTftClNERAIRE," I C ft N I E E R 
5 DATftCMLORlOUE.O R M U E L I C 
5 DATftCHOEPHOPE.0 RHPECEME 
? DATODENISCENT.E T I H C S E N 

9 DftTAOESDPlLER.F L I R D S P E 
9 OflTflREUULSER.E RUSULREG 
3 OflTARIUALISE.D I L P U S fl I E 

I DATARHAPSOrJE.R POMflTSEO 
? DATAREST1TUE, C SI T E U R T E 
3 OflTAJUnELAGE.U EJflGLOME 

* OATAJAROUSSE.U s e S I fl j r 
5 OflTAJONCMAIE.A H E U I N C J 
5 OATAJACASSER.S RSEARJAC 

? OftTflJAflBETTE.A TEMJRTBE 
J OATAJflRDINET, T I N fl P J R E 
3 OATAINSULINE.U N S L I I F E N 
i DATA1R0NISER.I N R F S E I R 
1 DftTAILLUSTRE.I USLRLFTE 
7 OftTAlnpURETE.P J n I E U E T R 
3 OATAGOURnANO.O AOGURFTIN 
1 OATAGOELETTE.L GDTOETLE 
5 DftTAFOLIAIRE.O R I L E F ft I 
1 DATAFOLXLOREjO ROKFRLEL 
7 DATAPTROSIS.T I J S D P R S 
i DATARAIOEUR.U R I □ U G ft E R 
3 DATAPRAIRIE.U B I R P fl E I R 
i DftTAPREUENU.G RUENTPUE 
I DATAPONTIFE.O N F U R E T P I 
? OATAPLAGIER.L I P R A T E 
1 OATAPIASTRE.R T A R S P I E 
1 OflTAPETROl.E.E TGOEHPRL 
i DflTAPENOANT.D ATEPNNBR 
5 riATflPERCurE.R TUCUPEFE 
1 DATAPARODIE.O P rt E L R I F 
1 DnTAPERJGEE.E E I P N R G E L 
) DATflPIEUURE.P M I R E U U E 
1 DftTrtl.UniNEUX.U I L N u X T n E 
I OftTALUSTRINE, I L TURSEHJ 
f DftTAUlTICOLE, I T E I L C U F 
I DAIrtUtRIIlLLE.R 1 n L E U L E D 
I OATAUAPOREUX.A FEXUOPUR 
I DATATURBOTIN.U T I N G 8 R I 
1 OflTAFILOUTflGE.I TFEflOLJfl 
' DflTAFINALISnE.I rl E ft S F N L I 
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I DAIAICARIENNE.N E I fl C N R £ I 
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I DATAlNCLINANT,! I C N A L I N N 
1 13AIAinnANENTE,N E T fl 
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I 


E 


r. 


R 





T T e 


530 DATAOEUORANTE.N 


T 








U 


R 


E E fl 


53? OflTA^IGJfAGllER, I 


R 


U 


t 





fl 


Eta 


536 OATA?IRCONIIE, 1 


B 





i 


■T 


C 


E H I 


539 DArAUOrAGlUSI., 1 


E 


u 


u 


S 





AGE 


548 OflrA?ELOTISnE,I 


T 


s 


E 


n 


I 


OLE 


541 DnTflZEHITHflLCI 


r 


f- 


M 


« 


I 


EEN 



I OAT* 



ILSIO 



I r 



I 



6 



KING FROG 



Aidez la grenouille a franchir autoroute et fleuve grace aux 
curseurs... Votre aide sera la bienvenue pour eviter ca- 
mions et noyade ! 
Mode d'emploi evident ! 



Patrick DERUEL 
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96 36,0 

IATAI 30,0,0,0,0, 124, 124,36,3 330 DATA234, 192, 129, 128, 192,224, 
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NOISETTES 



Voici un logiciel qui permet de connattre les interets des 
depots sur un iivret de Caisse d'Epargne. Ce programme 
permet aussi la tenue d'un fichier des operations, de con- 
naitre la derniere position du compte, et de sauvegarder 
rensemble. 

Marc VILAIN 



Mode d'emploi : 

Taper d'abord !a premiere partie rJu programme pour obtenir les litres 

et le grapNsme. Puis : 

- Faire GOTO 6010 

- Par prudence la sauvergarder a ("aide d'un GOTO 4300 

- Supprimer ensuite les lignes 4430 a 6300 et 7200 a 7260 
afin de regagner de la place en memoire. 

Taper la deuxieme partie sur la premiere. Doivent etre entrees en mo- 
de G les lettres majuscules entre guillemetsdes lignes 60. 70, 505, 2035 
(sauf POSITION) et 5066. Puis : 

- Faire GOTO 7215 

- Le message "2 variable not found 7215:4" apparatt 

- Faire alors GOTO 50. 

- Quand le menu s'affiche, choisir d'abord 1. INITIALISATION. 
(On peut aussi charger la 2" partie sur la 1"" a I'aide de MERGE). 

II suffit de repondre aux questions posees par I'ordinateur. Prendre en 
consideration unequinzaine complete (du 1 au 15ou du 16 au 31). II (aut 
d'abord entrer le ou les retraits en une seule operation arithmetique 
(exemple : -600 -600. puis ENTER) puis le ou les depots, de la meme 
facon (exemple : 1500+ 600 puis ENTER). Le fichier est prevu pour 24 
operations. On peut en augmenter la capacite en modifiant les lignes 
1150. 4025. 7215, et en suppnmant les lignes de REM 
Bien sur. on peut aussi changer les couleurs 



■NOISETTES" L IHE 7588 
"H"CODC 32 256 ,300 

CODE U3R "ft", 6* 

■■ DflTR J»(l 



SS REM • 

■■:'■■"-■> ;-i'.jr. 

use sflue 

L405 spe 

1.-1 sb srue 

4.4.38 STOP 

-.BIB CLERR 32235 

1=828 FOR n " 

<}030 RE»D 

5»48 NEXT ■■ 

6100>DATA 63,33, 13,91. 136,^5,34, 

8,gi,ni,oe ,388,38 ,a,*i,4t,*i,a3 

7,73,S*,9a,9,6a j a,58,*,91,38 J 11 
-.11© ORTA «1 A 50< 9,9 1,36,, 10.9.1*3© 

1 , 7 , 58 , 6 , 91, 38 , 3 , 91, 61, 32 , SB, «6 
Siae DRTR 4, Si. 61, 32, 24,36,14,91 
,71,30, 12,91,79,38, 18.91, 129,3,3 

3,333,38,18,91 4^8,91^25 



91,79, 197,285, 164, 126, 193 
1,68, 58 ,7 , 9 1 , 13 , 32 , 24 1 , 58 , O , *1 
6158 D«TR 68,58,8 ,91,3, 32, 22 1,50 
, 6,91 , 193 , 48 , 126 , 128 ,64 ,33 ,16, 8 , 
4,2,1,38, 142,92,238,253,71,38 
f,168 6«TR 141,92,168,71.38,8,91, 
238 , 348 , lH.Ce ,7,91, 254 , 192 . ^88 , 
J 1,31 ,31,230 ,31, 183 ,283,26,283 
ril70>DPrTft 29,283,20,203,29,283,2 
9,383 ,39,62,86, 188, 183 , 58 , 14 2 , 93 

. 166, 176, 119,56,7,91,71,238,7 
^.188 ORTR 246,64,183,130,31,31,3 

I , 230 , 24 , 168 , 183 , 120 , 23 , 23 , 230 , 2 
34, 111,56,0,91,71,31,31,31 .330 
5190 ORTR 3i, 181, 111,235,33, 156, 



SPECTRA 



136 , 120 , 238 , 7 , 79 , 6 . , 9 , 70 , 26 , 33 , 

6,91, 203,70,4 8,3, 176 , 18,201, 47 

5280 DRTR 176 ,47, 18 , 20 I , 8 , , , 8 , 

0,8, 0,0, 0,8, 8,0, 8,0, 23. 260 , 18 , 20 

6, 1 1,23 I, 88 ,26,33,220 

6380 OO TO 7310 

7188 CUCRR 32233 

7288 l_ORO "N-CODE 32236 

7381 LORD "N'"COOE USR "R' 

7305 LORD "M" DRTO J« O 

7210 DIM J(18>: DIM j « ( 18) „„_ 

7220 TOR ^ =8 TO 63: RERO b ! POKE 

USR "*"*•# bl NEXT * 
7230, DRTR 20, 60, 92, 2" 3, 124, 60, 6P 
..*S2 ,62 .62,02, 136 , 2S4,^3S , 137 , 3P 
B ,0 ,0,234 , fi?4. ,,>3* ,24*1 ,21*4 ,248 ,26 
i. ,232,234 ,234 , 883 . 2^2 , 2.16 ,240 
'240 DRTO , , 137 . 7 , 12 7 , 15, 127 , 3 
1 , 137, 63, 137, 12 7, (-3, M, 3J .35,40, 
^0 ,30,63 ,63,68 ,60,63 , 124 , 134, 134 
, 126 , 127 , 253 , 254 , 233 

7250 fOR M«l TO 1£J RERO 'I: LET 
J (N) ay . NEXT N 

7260 DttTR 97,3,19,27,26,22,2,47, 
6 7,64 ,69 ,2 ,36 ,43 ,46,35,43 ,48 



LET G»-" 

CLS 

TOR a =8 TO 30 3TCP 



t l, »;"*•«»'■ ; rt 2©,a, "Isat"; RT 
l,»; "Mm" ! NEXT a 

70 roR a =2 TO 18 STEP 2: PRIN 



,e: ■■&■■ ; rt a +i .so; 

38 INK 8: LET (S 
LET 4'j=16: LET p*r 
UB 7020 

90 LET XS=3: LET 



■'3l";flT a»l 5 
^" : NEXT a 
4: LET ys=5- 
LIUREIT": GO 3 



EPP.RGNE" : GO SUB 

95 PRINT RT LEN J* 

97 PRINT RT 18,5; I 

98 PRINT RT 21,7; "( 



i;e» 




_ 1984 

■JiLRir--- 

108 PRUSE 

500 CLS 

502 PAPER 3 

585 FOR a =0 TO 30 STEP 4.; PRPER 

5: INK 2; PRINT RT l.*;"fH»" " 

— I";rt 7, a rmr; fff 

IEXT a 

LET xs=i2: LET UiO: 



510 INK 



-SS. LET 
X OO SUB VOHB 

315 BORDER 8: PRPER " 

530 PRINT RT 10,5; "B 
3RTION 

S30 PRINT »T 12,5; "B 

DU LIURCT 

340 PRINT RT 14,5; "H 
NS SUR LIURET" 

550 PRINT RT 16,5; "B 



tmwK 

LET ._ 
UOTRE CKOI 



-INITIRLI 
-POSITION 
-OPERRTIO 
-SOLI'JEORR 
-LI3TE DE 



10; FLRSH 
-30 STEP - 



BRIGHT ].; Ht ( 1) 



3080 LET TI-3TR* TO*G* 

^B90 LET Tl-INT TO 

iQ53 LET U*=T»1 TO LEN 6TP» T 1 +3 

) 

,.100 PRINT RT 13,8; "TOT OL. DES IN 

TERETS - "; BRIOMT 1;U»," F" 

2148)LET Cl-C*TO: LET E«-STR« CI 

♦ 0«: LET C3-INT CI 

3120 LET F*-E«( TO LCN STRt C3*3 

api lal*ln t« 



(EN : 

3 128 INPUT 



ELS DE LR OUINZfiiNE. 

3160 PRINT RT 4 , 0, •■ RETRR IT OU 

RT 5,0; "UERSEMENT ? 



PRINT RT 



11, 2; " IN« pa 



=80: LET PS 

7020 

>*?.'7;UJ( 



"Rtir»u s 

.1,3: OEEP 



3192 IF SGN 

LET U <U) =0: 
3195 LET U(U) 



THEN LET R CU) -S 
TO 3200 
LET R (U) =0 



380 PRINT RT 
3 OPERRTIONS " 

600 > INPUT E: GO 5UB 9008 

610 IF E<1 OR E>5 THEN OO TO 60 


538 OO TO C»1000 
1000 CLS 
1B05 PRINT RT J 
TTENTION " 
1810 FOR a=30 1 
EP .05 ,» : NEXT _ 
1820 LET XS=2*. LET «s=3: LET « W =■ 
80: LET p« = " INITIALISATION" ! FLP 
SH 1: GO SUB 7020 
1025 INPUT "OUI/NON"; B* 
1027 FLRSM , „ TlJ ^ 

1B30 IF BI = "OUI" OR B»= 'OUS THE 
M OO TO 1128 
1040 OO TO 308 
1138 LET T=8 
1138 LET TO=8 
1140 LET C=0 

1150 DIM H*(l,10(: DIM R«'24,8) 
1160 LET U=3 
1288 GO TO 3880 

2000 REM *•*»*•••••»•»»**»*#••*» 
5010 REM « POSITION • 

3031 CLS. 

■>03S INK O: LET X*»2 LET y3=3: 
LET yy-0: LET P »- "POSIT ION" : OO 
-jUB 7020: INK 5: PRINT AT- 1,3;"» 
» ■ ; AT 1 ,27, ,- J«"; RT 3,2; "Bfc "; AT 2 



ja8B>PRTNT AT 8,0;"DRTE 
MENT OU";OT 9,0;" 

yr -Mo l*) ....... 

3210 INPUT "Jour . ";J1. BEEP . 1, 
5: DEEP .1,5 

3S30 IF J1>=1 AND Ji(»15 THEN LE 

3248 INPUT "MOi*: "iH4j LET Bb (M 
1-11*2: BEEP .1,6: BEEP .1,6 
3250 LET D=B*A 

3260 IF Jl=l AND Ml=l THEN LET C 
■»i LET S=0: LET TO=0: INPUT "An 
n«« (2 d«rni*rs Chi f f r«»",Rl' OO 

SUB 9080 

-J265 LET A*(U)=5TP* JltCHRI *7f r j 

TR« M1*CMR* 47»STR« Al 

3270 PRINT RT 9.8*i BPir.dT 1;R»' 



1250 INPUT "J 

3: BEEP .1,0 

J500 LET E=l 

3310 IF ■ I."- ; ■■ 1 

T E-0 

3320 INPUT "MO 1 * . 

10: BEEP .1,10 

3330 LET G=(M2-1I*3 

3340 LET F=G*E 

3350 PRINT RT 13.37 



UC ! "; J3: BEEP . 1 . 

AND J8<«.1S THEN LE 
14 : '; MS. BEEP . 1, 



3-rjil 



' " f r . l • < <^'-< . < • n . ■ 

3388 PRUSE 0: GO SUB 9000 

23 10 CLS 

.'*«« GO TO 508 

3080 REM 

3001 REM OPERRTIONS SUR LIURET 

1005 CLS 

^080 PRINT AT 18,6, C« 

3090 PRUSE 0: OO SUB 9000 

3100 CLS 

3110 PRINT : PRINT "A QUEL TRUXT 

' ";T- OO SUB 90 
3130>PRINT RT 1,37; BRIOMT l;Tj" 

y." 

3133 00 SUB O000 

31*5 PLOT°7?1B OB «" S/, 18 ~,S R 2 U 
M30.8: DRAU 8 , - IB : DRAU -333,0 



BRIOMT tjua 

2-31"rnD M3-13 THEN LET 

3388 LET P^O 

3390 LET 1=0. LET 11=0 „__ 

3393 PRINT RT 15,10; FLASH 1, E5 
T-CE CORRECT? (O/N)" 

3394 PAUSE 

3396 IF INKEY*="N" OR INKEY*- n 

THEN LET U =U - 1 : GO TO 3108 
3488 PRINT RT 15,10;" 

3*03 IF SGN (S) -1 AND P»B THEN O 
O TO 3430 

3410 IF SON tSI-1 THEN LET P-O-l 
! LET II- (C»T^1881 /3* : PRINT RT 

is, 12; ■•♦1" 

3*15 PRINT AT 15,10 
QUINZRINC IS) 
3430 LET C-C*3 
3438 LET K»3400^T 
3440 LET I=(C»P/Kt 
3438 LET TO-TO*I*Il 
34BS LET U-U*l 
34B9 FOR N-17 TO 31 
3*68 PRINT HT N , ; " 

3*61 NEXT N 
3*65 LET 1«-5TR» (I* 
3*66>LET L»INT 1*11 
3*70 PRINT RT 17.1. 
, BRIGHT 1 "- 

' FRANCS" 

)47B BEEP .1,18: BCCP . 
.1,6: BEEP .1,8: BEEP 



;P,fiT 15,13; ' 



3460 PRINT RT 20,7, 



"ENCORE? tOUI 

THE 



PRINT AT 30,6; "TA 



3538 PRUSE ,._,. 

3546 IF INKEY* »"0" OR INKEY*- o 

THEN GO SUB 9880: OO TO 3188 
1350 GO SUB 9000 CLS : PRINT AT 

1,0; TIUK ' 

GO TO 3138 

3560 > INPUT "OATE ?" i M»ll> 

3380 CLS BCCP .1.5. BCCP .1,1 

3590 OO TO 3880 , 

Suite page t 



GEANT 



Lourd et volumineux le tout premier ordinateur, I'ENIAC 

effectual! la multiplication de deux nombres de dix chif- 

fres Le programme GRAND pam dans HEBDOGICIEL 

n" 20 permet d'en faire autant avec une machine tenant 

dans ma poche. (La touche de multiplication n'est effi- 

cace qu'avec deux nombres de cinq chiffres). 

GEANT est la reunion de deux programmes complemen- 

taires. Le programme LbrTermarqueunenouvelleetape 

dans la manipulation des grands nombres : il effectue la 

multiplication dedeux nombres decinq cent chiffrescha- 

cun. 

Le resultat est debite en tranches de vingt chiffres et est 

stocke des registres 100 a 199. 

Stocker 1 dans le registre 00 c'est en fait y mettre 1 x 10"°. 



L'imprimante est requise et avec ellet'executton demande 
moins de trois heures. 

Le programme utilise le module d'extension de tonctions 
et quelques fonctions du HP 41 CX, mais il peut etre adap- 
ts pour un HP 41 Cpourvudetoute sa memoire principale. 
Le produit peut done s'approcher de 10'°" J et la precision 
est totale. 

Joseph HECTUS 

Moded'emploi : 

Faire SIZE 200, enlrer le programme et le compacter. entrer les termes 
et (aire Xeq* Ter. 

Le programme Lbl CASES estune routine tacilitant I'entree des termes 
avant ('execution du Lbl' Ter. 

Lbl CASES equivaut pour la memoire principale a la fonction etendre 
SAVEX. elleagit sequentiellement et en croissant. Lbt CASES deman- 
de dans quel registre sera stocke le nombre de debut ; apres avoir 
inscrit le numero du registre faire RUN. . 

Pour lestockageproprementdit, mettre dans le registre Xun nombre et 
(aire RUN. inscrire le nombre suivant et faire RUN et ainsi de suite pour 
autant de nombres a stocker. 
DESCRIPTION DU PROGRAMME Lbt* Ter 
Ligne 3 a 5 : conditionnement de I'affichage. 



1426 25. 62 
81«L8l -CEDNT- 
82»LBL •« TER" 
83 SF 25 
M CF 29 
95 FIX ft 
86»LBl 98 

97 1 

98 XR0H 25.52 

99 PURFL 
19 FS? 25 

11 GTO 88 

12 25 

13 •«■ 

14 .949 

15 PRRECX 
16»LBL 91 

17 RECSUfif 

18 .999 

19 » 

n DSE V 

21 GTO 91 

22 59.899 

23 CRFLB 

24 PRREK 

25 .949 

26 SflVEPX 



27 188.199 

28 XROfl 25,58 

29 199 

38 SIO 89 

31 99.649 

32 STO 63 
33»LBL 

34 56 

35 STO 84 
M CLX 

37 SEEXPT 
38«LBL 8 

39 RCL 68 

46 STO 82 

41 RCL INJ 83 

42 GETX 

43 1 E5 

44 STO T 

45 ST/ Z 
48 / 

47 FRC 

48 ST« Z 

49 LBSTX 
56 INT 

51 STO 81 

52 X<> 2 

53 FRC 



54 ST« T 

55 ST« Z 

56 X<> L 

57 INT 

58 ST« 81 

59 « 
68 INT 

61 SI* 81 

62 X<> L 

63 FRC 

64 XOY 

65 INT 

66 ST* 81 

67 X<> L 

68 FRC 

69 * 

76 XOY 

71 INT 

72 1 £5 

73 / 

74 ♦ 

75 INT 

76 STt 81 

77 X<> L 

78 FRC 

79 1 E5 
88 ST« Y 



81 X<> Z 


188 DSE 88 


135 1SE 84 


162 AFV 


82 FRC 


189 RCL 88 


136 GTO B 


163*L6L 88 


83 * 


118 STO 62 


137 49 


164 CLft 


84 « 


HI RCL 81 


138 ST* 88 


165 RCL 96 


85 RCL IND 88 


112 RCL IND 88 


139 DSE 83 


166 199 


86 1 E18 


113 1 E19 


148 GTO H 


167 X<Y? 


87 STO T 


114 STO T 


141 HBV 


168 STOP 


88 - 


115 - 


142 48.882 


169 ISG 88 


89 * 


116 t 


143 ST- 88 


178 BRCL IND 


98 STO L 


117 STO L 


144»LBL 86 


171 18 


91 X<6? 


118 X<8? 


145 RCL INI 89 


172 HLENG 


92 t 


119 + 


146 X<6? 


173 - 


93 STO INI 86 


126 STO IND 68 


147 GTO 87 


174 16tX 


94 ISG L 


121 ISG L 


148 ISG 86 


175 CLfl 


95 GTO 63 


122 GTO 85 


149 GTO 86 


176 RRCL X 


96«L8L 62 


123*LBL 64 


158 VIEW IND 88 


177 fiTOX 


97 DSE 82 


124 1SE 62 


151 STOP 


178 (*CL IND 


98 I 


125 1 


152«LBL 87 


179 HCH 


99 STt IND 82 


126 ST* IND 62 


153 OCX 


188*LBL 89 


196 I E18 


127 1 E18 


154 .1 


181 CLfl 


181 RCL INB 82 


128 RCL 1H1 62 


155 ST* 88 


182 ISG 88 


182 X«Y? 


129 X*Y? 


156 RCL 88 


183 flRCL IND 


183 GTO 83 


136 GTO 85 


157 INT 


184 18 


184 CLX 


131 CLX 


158 2 


185 DLEHC 


185 STO IND 62 


132 STO IND 82 


159 HOI 


186 - 


186 GTO 82 


133 GTO 84 


168 X=8? 


187 18*X 


187«L8L 83 


134*LBL 85 


161 GTO 89 


188 CLfl 



Ligneea 11 suppression de tous les fchiers da la m*mo*fed*«ten9km 

(Pas 08 : fonction EMDRIX). 

Ligne 12 a 32 : inversion de I'ordre des nombres consiituant le l" terme 

de SO registres en memoire d'extension 

Ligne 33 S 37 : conditionnement pour que la boucle de mutt>pJtcation 

soil executee 50 fois pour une meme partie du 2* terme (Pas 28 : 

fonction CLRGX). 

Ligne 38 a 84 . multiplication partielle (Lbl* bis) 

Ligne 85 a 95 ainsi que 112 a 122 : addition partiefle 

Ligne 96 a 106 ainsi que 123 a 133 : addition de la retenue 

Ligne 107 a 111 : conditionnement pour la fin de I'addition partielle 

Ligne 134 a 143 : conditionnement apres les tests de sortie de bouCte. 

Ligne144a151 : f echercnede la 1 ! " valeur nonnulledu registre 100 vers 

le registre 199. 

Ligne 152 a 162 : impression de cette valeur si elle est situee dans un 

regislfe impair. 

Ugne 163 a 179 : accumulation dans le registre tampon de la valeur 

situee dans un registre pair. Si cette valeur est inferieure a 10 elle est 

completee par des zeros. 

Ligne 180a 195 : procedure identiquea celui qui precede, mais pour les 

valeurs situees dans les registres impairs. 



189 RRCL X 
198 flTOX 

191 ARCL IHD 

192 RCfi 

193 ADV 

194 GTO 88 

195 RTN 
196»LBL -CASES" 

197 CF 25 

198 -Beeux fl ?■ 

199 PROMPT 
288 .4 

281 + 

282 STO L 
283*LBL 18 

284 STOP 

285 STO IHD L 

286 ISC L 

287 GTO 18 

288 .EHD. 



*? 




BOLIDE CIRCUS 



Le but du jeu est de realiser le maximum detours de piste. 
Le sens du parcours est celui des aiguilles d'une montre. 
Le temps est limite a 2 minutes. A chaque sortie de piste, 
la voiture explose, vous faisant perdre de precieuses se- 
condes. Quand le bolide ne clignote plus, il est pret a 
repartir. A chaque tour, la voiture va de plus en plus vite. 
Neanmoins, vous pouvez accelerer en cours de jeu en 
maintenant les touches enfoncees. 

Pierre-Marie BERNEZ 



■^NEX7 




10 PEM*»t;E'J».. 

13 Pf-inrrr P0KE36879.27 

[5 PRINT" C^AVrtVAWrfVAVrtW." ■ 

17 PPIMT"j«WBOLICEB ICiaCUf 

20 print "Ijifigez voire bolide n "aide des touches-" 

25 PRlHT"«KHfi'JTS. ...fl" 
27 PPIHT 1, IMiffifi3S.....Z" 
39 Pf»iriT"«WGflUCH£9. .-:" 
31 FPlNT"HHaDPUITEB. .J" 

34 PRIHT"«L'fiCCELEPfttIOH« EST OBTEHUE EM LAIWflNI 

35 PRIHT'BMWMOMC OHftlCE" 
59 FOPI='1TO;'090 NEXT 

199 r>36874' 14^7680 CO-38400 POKEG+4, 15PRI 
5UB498 



528 
549 

569 

see 

ENFOMCER L 



PRIHT'TT; P0KEG*5-59 

PRINT" «*♦**♦**«***••***♦*• ■ 

PRINT"** *** •*■ 

PRIKT"* * • ' 

PRINT"* " * *' 

PRINT"* ** * * *' 

PRINT"* * * *** •' 

PRINT"* * * *** *' 

PRINT"* * * ** *' 

PRINT"* * ** * r 

PRINT"* * * **' 

PRINT"* * * ***' 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* *■ DE •". 

PRINT"** DE **'; 

PRINT" HWWHW WWWW ; :G0T0688 

ES roUCMES" 



******* 



******* 



............ 



3MMMM/EUIIXEZ PHriENTER 3VP" : 60 



600 P0KE36869 . 255 ! F0KE52- 28 • P0KE56, 28 

628 fi-7I68- F0RI=FIT0H+51 1 -FOKEI .PEEKC 1 + 25506 > 

640 FORL=0TO47 ■ REflDF = POKEH*L, F ■ NEXT : RETURN 

660 DATH60. 255- 255, 60- 60. 231, 255, 255. 183.103.255,251-251.255-103.183 

665 DRTA255, 255, 231, 68, 66. 255. 255, 60, 230, 238. 255. 223, 223. 255-230,230 

678 DflTR-1, 2, 4. 8. 8. 4, 2, 1,0, 0,8, 170. 85, 0.0. 8 

680 X=3:V=20 8=1 -Z=9- W=20 T=0 : TS=0: TT=0: SC«8-NT=0PRS=0. IM'0 IN=0 V1-* 

780 POKEH+X+V*22.B-POKECO*X-i-V*22,0 

720 P0KEG-I28 

740 IFSC=0THENTI*="000080" 

768 TT=VRL<TI$>; IFTT>208GOTO1308 

780 IFT=29THEND"-1 :E=0-B=i:GOTO888 

600 IFT=37THEND=1 .£=0-8=3 GOT0888 

820 IFT=17THEHD=0-E=-1-B=0:GOTO380 

840 IFT=33THEND=0EM B=2GOT088e 

S60 GOTO 11 48 

838 X=X+D i V=V+E ^U=H*-X+22»V UU"PEEK<U> 

908 IFUU=42THEN1220 

928 IFUU=5THENPPIS=1- 111=1 

940 (RAMANS PRS=0THEN1228 

960 IFIJU=4RND PflS= 1 THENPflS=8 NT = NT*1 - 1 H= 1 

988 FORL=lTO220-as*5>-(NT«40j:NEXT 

1800 POKEU.B-POKEG.130tTS/15 POKEU+ 38720.0 

1020 HH=H+Zt22*W:P0KEHH-32 

1040 IFNI=1GOTO1180 

1068 IFMIO1GOTO1120 

1080 IFIM=lTHEf*P0V;EHH.5 IM=0 G0TO1 120 

1189 IFIM=UHEHP0KEHH.4;lH=e 

1120 2=X:W"VK"T-r1I-IM,NI = IN 

1 140 T=PEEK<203J ! IFTOKTHENTS=46 

1160 TS=TS*15 IFT=64THENT-K TS=9 

11S0 IFTO0THENSC=SC*t 

I2W G0T0749 

1229 POKEG-0 :pOKEO+3.229 FORL=15t0uSTbP-l PUKEG+4.L -P0KEH+Z+22*H,32 

i;>»f) FOPI-lTM">j tlE::f F0KfcH+2+22*H,B P0KEC0tZ+22»M,2 NEXT 

1260 P0KEG*3- 9 ■ P0KEG*4 . 10 : P0KECO+Z+22*W, 

12S0 T=8 K=0-D=8 E=0 X=Z V=W VI=VI*1 00101149 

1309 P0KE36869.,i4f» FOKEO-0 

1 320 PTS=HT*3C-V I * 1 0+HT *40*SC 

1325 IFPTS<9THEirPTS=0 

1338 POKEG+5, 27: PRINT ■■DCrtVrrtVrtVr.V.Vi'/rtV^fi"- 

1335 PRINT-VOTRE SCORE "PRINT" -" PRINT" 

1337 PRINT-MWW— — Wiri'Hiiaine" PRim"H»Iw- 

1348 FRINT'UNE MJTFE PRRHEO/H?" 

1345 PRIHT"*«e BOLIt€ CIRCUS. ...3" 

1358 IFPEEKC197>=52THfcHFi>tj- i i:<,:--.,:-,- J i.LF L-OIOIWO 

1368 IFPEEK'1L : '7.'=2STHENF'R1NT" ft BIENTOt." END 

1389 GOTO1350 



V \C20 



>l^ 



Suite de la page 7 



1000 rem aBoananBamiiiiinattntinnao 
rteie rem n aou'JcooRoc 

4Q2S DIM V(»OJ I fOR N-l TO 34.; 

rrr v n-n -u (ni •. i_er v (N*a*,) >r cni i 

NEXT N: LET ¥(<10) >C: LET Y(M>I 
O; LET YIB1I "U. rofl Nsl TO 1© I 
ET Y (N + Sl) =U (N> : NEXT N 

"NOISETTES" LINE 7106 
"CODE 32256,300 
"CODE (J3R "R" -B4. 
" DRTR «»{) 
" DRTR M*<) 
DfiTfl Y (> 



4.30O SBUE 

44.00 SRUE 

<4.05 SRVE 

4.4.10 3R'JE 

4.4.1B SRUE 

4.4.30 SRUE 



S04.0 ron L-i to u-i 

OBS0 PRINT TRO 0,R«r 

";y(Li;TRO Wit "9 ";R 
S0SB DEEP -1,L 
50S0 NEXT L 
S0S3 PRINT 

"; BRIGHT 3 
30SS PRINT 
ORIOMT 1 

-" PRINT 



sasA 



4.4.30 GO T O 300 



LISTE DCS OPCROTIONS 



uwr 



"CRPITflL 
"INTERCTS 



PRINT TRB 14.; 
PRINT TRB 14; IN 



SM 



:;«2E cls 



PRINT RT S1,S;C« 
507B PRUSE 
S080 GO TO 500 

7020 LET XX-(2S8-OtK»»LpN pf) 
7030 >LCT . ~2330fi ; POKE i ,XX : 
E i +1 , -l-i POKE 1>2,XS: POKE 1 
Iffti POKE i+4,3. LET i=i+A ; LE 









1 +n. 




























•CODE 33256 








■N 






7303 




















720S 


LORD 


"N" DRTR Y (> 




7310 






N-l TO IS: 


LET J(N1 -v in tr:ii 


.- LET 








































0000 


TOR r 


-150 TO 50 STEP - 


30 






























. 1 


, 1 ■ QCCP . t. 1: 


RCTUR 



SOLUTION DE L'HIPPOREBUS : 



10 FOR 1=1 10 8 
20 READ I 
30 PRINT CHRIII); 
40 NEII I 
50 END 

to DRIB 79,80,19,82, 
45,78,48,69 




POKER 



Avec un peu de chance, vous pouvez gagner de quo! vous 

offrirun SINCLAIR QLISinon.nerevendez pas votreZX81! 

Dominique CORDAILLAT 



Description : 

Urte fois le programme en memoire faire RUN. 

II apparaitle mot POKER qui reste environ 2 a 3secondes puis apparais- 
sent quelques lignes expltquant I'entree des donnees du jeu, appuyer 
"C. lordmateur vous propose la regie du jeu "P" ou sinon " *, vous de- 
mande la somme que I'on veut engager et la mise de depart. 
Appuyer "J", Apartir de ce moment, le ZX dessine les cartes de dos, les 
cadres CREDIT et MISE, avec un credit dejadecomptede la mise de de- 
part II passe aussitot en mode Fast pourchoisir la carte puis les affiche 
a I'ecran. 
II y a maintenant plusieurs cas : 

- soit vous n'avez pas gagne. il vous demande quelles cartes vous vou- 
lez changer. 

- soit vous avez gagne, vous pouvez : encaisser directement ou chan- 
ger des cartes ou (aire quitte ou double. 

Pour changer des cartes, il suffit de mettre les numeros des cartes a 
changer les unsapres les autres puis Newlineet les cartes seront chan- 
gees. 

Si vous n'avez toujours pas gagne. le ZX vous demande votre nouvelle 
mise et on recommence. 

Si vous avez gagne vous pouvez soit encaisser. soit (aire quitte ou dou- 
ble. 

Si vous choisissez quitte ou double, les cartes se retoument. et le ZX 
vous demande noir (N) ou blanc (B), puis il apparait pendant 2 a 3 se- 
condes. la couleur qu'a choisi le ZX sur la carte du milieu. Si vous avez 
gagne. vous pouvez recommencer, sinon la mise passe a zero et il vous 
redemande la mise. 

Quand ilne vous reste plusde credit. 3zerosclignotentetle2X vous de- 
mande si vous voulez rejouer ou arreter. Si vous voulez rejouer. il repart 
a zero. 
Remarques : 

Le ZX affiche ce que vous avez gagne. 

Les tests prevus pour bien respecter la regie du jeu du POKER (on ne 
change pas 5 cartes, ni 4 sans avoir d'AS) 

II est preferable dene pas miser plus d'un million deS sinon ily a interfe- 
rence entre le cadre MISE et CREDIT . 




13 BRNO 

19 cosuo saae 

39 PRINT AT 21,16; "PAR D.CORDA 
XLLAT" 

3«- PAUSE 139 
48 CLS 

ea dim Bt(3,2) 

S3 DIM N«(2> 

63 DIM M«(3> 

63 DIM K(5) 

90 DIM BIS) 



113 LET 8UT»» 

130 GOSUB 1«0O 

139 GOSUB 1999 

1*9 GOTO 180 

130 IF URL Ct'«0 TMEN GOTO 690 

1S1 LET D6«"8" 

133 GOSUB 1290 

133 IF OUT-1 TMCN OOTO 160 

186 FOR D-l TO 8 

187 G03UB 3009 

15B NEXT D _™^^_«. 

169 PPINT AT 12 .1. KllIMB 



183 LET OUT-9 
16* INPUT Of 
168 IF UAL 0«; 

186 IF INT (UAL Of) -URL D»-B TM 
EN QOTO 170 
167 LET It-STR* tRBS 

T (URL Oil ) ] 

189 LET Ot-STR* I INT 
PL 1*11 TO 3f ■ 



>UAL Cf THEN OOTO 



(URL Ot- 
(URL Oil 



z%* 



178 PRINT RT 13,3; " 
188 GOSUB 1200 

190 mat 

309 FOR 0-1 TO 8 

310 OOSuB 1700 
330 roR G-l TO 
330 FOR WnO TO D-i 

2*0 IP SH5l.Btlf.il AND 8(0) -8 
(F*l> TMEN OOTO 319 
389 NEXT F 
389 NEXT 
370 NEXT D 
380 3L0U 

399 FOR 0-1 TO 8 
309 OOSUB 2099 
318 NEXT 
313 FAST 
330 GOSUS 3099 

338 SLOU 

339 IF R-l THEN OOTO *30 

3*0 IF R-9 THEN PRINT RT 14,3;"' 

U0ULEZ-U0U5 ENCAISSER IE)";RT13 

?'"CHRNOER DES CARTES (C) ' ; RT 1 

A 5*2"lF U INKEV«- ? e""TMEN OOTO 379 
3*3 IF INKEY|-"C" TMEN OOTO *38 
34* IF INKEV»- ,, 0" TMEN OOTO 389 
343 GOTO 342 
389 PRINT RT 14.31 _ _ _ 

" ;R+ -?RT 7 iS,7;- 



436 PRINT AT Ifjfl" , 

•',«+ IS, 7; " 

3,-OUELLES crrt 
CMANCER 1 1123 

438 INPUT Ft 

436 IF F|«" ■' TMEN OOTO 680 

4*9 PRINT RT 13,3, - 



»*1 FOR 

— Ul._ 

ND URL Fill) ()3 RND URL F 
• II) (>4 AND URL full OS TMEN 00 
TO 430 
4*3 NEXT I 
4S0 IF LEN PtoB TMEN GOTO 460 

433 print rt 13,3, 'taicmeua. . .0 
n ne chrnoe pas 3 crates, je uous 
paenos la mise. 

433 PAUSE 309 

437 OOTO 660 

460 LET N-0 

479 FOB M-l TO 3 

480 IF 6* I 



170 LET CB-STR* IUAL C|-UAL D|) 

173 IF URL DJ(-0 TMEN OOTO 870 

174 SO3U0 1999 



381 OOSUB 2399 

382 GOTO 389 

370 PRINT RT 14,3; 



389 LET SR-UAL C% 
383 LET SM-UAL 09 

399 LET SA-SA. (3M*S3> 

400 LET C«-STfi« SB 



135* PRINT RT 
31,31, CMRt 13 

• ♦!» 1 -1) 1 ■ 
I3S-ILEN Dt.l 

130 

13*0 PRINT RT 
-,Df,' 
1339 RET' -■■ 
1399 REM 
1409 PRI ... 
1*91 PRINT 

DEMAHOE UNE 

LR LETTAE.' 
1*03 PAlMT RT 

DEMANDS 
BE ' 



TMEN LET I 



II ANO LEN F»«4 THEN CO 



499 NEXT 

889 IF •' 
TO 809 

503 LET A5«0 

303 FOR I«l TO LEN F« 

39* IF BtlUAL F*(D) «"RS- THEN 
LET AS.A3.1 

306 IF*LEN F9-4 RND RS-0 TMEN 

°507 S IF LEN Ft-4 RND AS-1 AND N< 
.1 THEN OOTO 4090 

310 FOR L-l TO LEN F» 

311 LET D-UAL (F«(LI ) 

312 GOSUB 8090 

313 NEXT L 

313 FOR L-l TO LEN Ft 
520 LET D-UAL IFf(D) 
825 LET Z«-B«(D) ■ 
336 LET Z-BCD) 
539 GOSUB 1709 

349 FOR F-l TO 3 _,_ 

580 IF B«tD) =B«1F) AND BID)-BtF 
I RND D<>F TMEN OOTO 539 
S55 IF B»ID)»Z» RND 8 (O) -Z TMEN 
GOTO 539 
S69 NEXT F 

579 GOSUB 2009 

580 NEXT L 
585 FAST 

599 GOSUB 3009 

600 IF R»l THEN GOTO 6«0 

610 IF R=0 TMEN PRINT AT 14,3;" 
QUITE (9) OU DOUBLE ID) 7 

629 IF INKEYt-"0" 

630 IF INXEY<-"D' 
640 GOTO 630 
648 GOSUB 3390 
650 GOTO 389 

669 LET SS.8 

361 LET SA-URL C| 

663 LET SM-UAL D* 

379 GOTO 490 

889 OOTO 1S0 

690 FOR T«l TO 10 

700 PRINT AT 20,1; ,- 

791 PAUSE 30 

703 PRINT AT a«, !;"•••" 

710 NEXT T 

713 PAUSE 150 

730 CLS ^^^_^_^__ 

739 PRINT AT t,S,"PPPHBHp 

■■■;rt 8,6; ■uoulEZ-uBUS:";rT 18, 
7^"-PEjOUER (J)";RT 11,7; ''-RRRET 

740 IF INKEYI--J" THEN OOTO 49 
730 IF INKEYi-"R- TMEN OOTO 769 
769 GOTO 740 

769 CLS 

779 STOP 

809 PRINT RT 13 , 3; "TRICHEUR . . . U 
0U3 CHANGEZ 4 CRRTES SRN3 AUOIR 
D""A3 ;JE UOUS PRENOS LR HI3E. 



819 PRUSE 299 

829 GOTO 869 

839 PRINT AT 13,3; 



ON NE MISE P 



□ 3V KHini hi ij,.j, un nc n i oc r- 
A3 PLUS 0""ARGENT OUE CE OU""0N 
EN A." 

838 PAUSE 299 

869 GOTO ISO 

870 PRINT AT 13 , 3; "AADXN. . .MI3E 
Z PLUS FORT." 

673 PRUSE ISO 
880 GOTO ISO 

900 CLS 

901 PRINT 'UOUS 0I3P0SEZ DE 5 C 
RATES, UOUS OEUEZ REALISEA 
LES FIGURES SUIUANTESi' - 

992 PAINT AT 3,3; "-DEUX PAIAE3" 

994 PRINT AT 6 , 3; " -SRELAN IEX: 
U U U 7 8) " 

996 PAINT RT 7,3; "-SUITE (EX:1 
9 U D R A3) " 

998 PRINT RT B , 3; " -COULEUR (EX 
: 3 CARTES A COEUR) " 

910 PRINT RT 19,3; "-FULL (EX I U 

U U R R)" 

912 PRINT RT 11,3; "-CARRE (EX: 
A3 A3 RS RS 7) " 

914 PRINT RT 12,3; 
M (SUITE HEME 

918 PRINT AT 14,3; 
E (OUINTE FLUSH A 

929 PRINT AT 18,3; 
ER APPUYER •■■'(;■• "'■ 

925 IF INXEVi(>"C- 



-OUINTE FLU3 

COULEUR) " 
-FLUSH ROYAL 

L""AS>" 
POUR CONTINU 

THEN OOTO 92 



"it ^ lllllll l llllllllll 



930 CLS 

933 GOTO 

990 REM " 
1008 FOR _ -. 
1910 PRINT AT 19 ,(1*0) | CHftf 3 i RT 

21, (1*0) ;CHR« 131 
1029 NEXT 

1939 PRINT AT 19,9,CMR« 7;RT 19, 
(LEN CfOl.CHAt isa;" "iAT 2 

1,0,CHR| 130, AT 21.1LEN C«*3);CH 
A« 139; ,T 
1049 PRINT AT 20,l;CS;" S 

;AT 16,0; "CREOIT" 

1939 RETU RN 

ll ?° B = M PT J SfP C P T W^f t l 1 *? 1 F 1 ^ 

1309 FOR 0«B TO (LEN Of+l' 



1319 PRINT AT 19, 
) »0) ; CMR* 3;RT 3i 
) ) .i5i ;CHA« 131 



9.RT 19,i 
",CMA| 

li ." 



33S5 i^Jjfl 3838 



123- ILEN M- 1' 



If 3K 
rftfsa If -?(■£>■ then LZ~ ^ , '■?-^3 
2SS3 LE - 0*.STOi r» 
22-3 BOSUi 122? 
3339 I' SM.» then SOTO 2330 
2339 POINT RT 1* , 3 , ' O'JITTE I0> 
U DOUBLE (D) ■• 
3319 If IWEYO-O" THEN GOTO 233 



LCTTRE NE TRPEZ OUE 2330 



IN«f'«« 



TMEN SOTO 322 



UIS 



1403 PRINT RT 
ER APPUYER 

1404 IF INKEY 



6,9, "OUAND JE UOUS 
OHBRE TRPEZ CE NOMB 
LINE"-." 
19,0, 'POUR CONTINU 

o'c" THEN OOTO 14 



2333 GOTO 3318 

; ? : j - et jr>j_ 

3998 r- 



l!P 



EC MOI COMME AU POKER NORMAL. 

1436 PRINT RT 3,0;"U0U3 POUUEZ J 
OUER UNE PREMIERE fOIS PUIS CHA 
NGER LES CARTES UnCSCULE FOIS." 
1433 PRINT AT 9,0, "POUR LES NEOP 
HYTE3 APPUYEA -■■p"-' POUR AUOIR 
LR REOLE OU JCU. SINON" ".■'•' . 



143U KUNI HI IJ.O. HIBkU 3unn t 

UOULEZ-UOUS ENGAGER DANS LA PAR 
TIE 7(«) ": 

1449 input c» 

1430 PRINT CJ 

1460 PBINT AT 16,9. "OUELLE EST U 

OTBE MISE DE DEPART T . 

1479 INPUT D« 

1471 IF UAL D|>UAL Ct THEN GOTO 

1470 

1473 IF INT (UAL Of) -UAL Ot-0 TM 

EN GOTO 147S 

1473 LET II-STRf (AB3 (UAL Oi-IN 
T (UAL D«> ) ) 

1474 LET DI-STRt (INT (URL 0») *U 
AL I« H TO 3) ) 

1*76 LET C|»STftf (UAL C«-URL D») 

1*89 PRINT D« 

1*99 PRINT RT 29,9; "POUR JOUER R 

PPUY£A""U 

1S09 IF INKtY|0"0" THEN GOTO 15 

99 

1519 CLS 

1538 OIM E« (364) 

1608 PRINT AT 11,2;CHR| 157;RT 1 
l,8.CMRt 1B6;RT 11,14. CMRt 1B9;A 
T ll,a0;CMR9 1S0;RT li,a6;CMR« 1 

160S FOR D-l TO S 

1896 GOSUB 3989 

1607 NEXT 

1618 R ETUR>L^^^^^^^_^^^_ 

1700 LET hTTntTbTrH&wT^^^ 

1710 LET 89 (D) -Al( (A*a) TO ( (A«3 



3938 I _ 

3991 LET FS-0 

3832 LET N(." ' 
3893 LET M«.- 

3833 LET B>0 
3010 FOR :-'. TO 4 
3913 LET K III .0 
3828 'OB J.I.I TO 3 

3039 If S»(I)-B|(d) TMEN LET K(I 



•3 THEN LET N(-Btll) 



-1 ANO It 



K(I> . 
3031 IF -. . 
3840 NEXT 
3959 NEXT i 
3851 FOR 1-1 TO 4 

3853 If X (I) -1 RND 8* III « • •. I TMt 
N LET MI-B«(Il 
3033 NEXT I 
3969 FOR 1-1 TO * 
3070 IF XII) -3 THEN OOTO 3340 
3980 If X(I)-2 THEN OOTO 3126 
3983 If X(l)-1 RND Kiai-3 OR K< 
) »1 AND X(3)-2 THEN OOTO 3120 
399B IF (ttl)-l THeN GOTO 3160 
3110 NEXT I 
3120 FOR 1-1 TO 4 
3123 FOR J-l TO 4 

3126 IF M»--- " TMEN OOTO 3140 
3130 IF K(I)-2 AND KtJ)-l ANO M 
i.Ni TMEN GOTO 3370 

3140 IF K(I)»2 AND X ( J) -0 TMEN i 
OTO 3400 
3139 NEXT U 
3153 NEXT I 

3169 FOR J-l TO 4 

3170 IF K(I) -1 RND I 
>J THEN GOTO 3430 
3180 NEXT U 

3390 FOP X-0 TO 3 

3303 LET FS-0 

3218 FOR A-l.X TO 3.X 

3329 FOR J-l TO 5 

3322 IF B( IJI -R»( (fl«2> TO ( (A*2) 
.1) 1 TMEN GOTO 3336 
332* GOTO 3389 
3336 LET FS-FS.l 

3249 IF FS-5 THEN GOTO 32S9 
3343 GOTO 3380 

3250 NEXT J 
3260 NEXT R 
3270 NEXT X 

3360 IF FS-5 AND BI1)-B(3) AND 8 
(2)-B(31 AND B(3>-8(4» RND 8(4)- 
B(3> AND X-3 TMEN SOTO 3460 
3399 If F3-8 RND 8(1) -B(3) RND B 
(31-6(3) RND B(3)-B(4) AND B (*> ■ 
6(31 AND Xl>3 TMEN GOTO 3539 
3399 IF FS-5 AND NOT 18I1)-6I2»- 
B (3) -8(*) -B 15) ) THEN GOTO 3*99 
3319 IF BID-BI3) ANO 8(3) -Bl3> 
AND B(3)-S(«) AND B(*)-B(S) TMEN 

OOTO 35SB 
3339 LET R- 

3330 RETUBJ' 

3335 REM ■ 

33*8 prin tr TitTTTTM HBB' . ft 
t(D ; " 



1729 LET 8(0) 

1739 RETU RN 

1990 REM PM 

2000 LET 



INT (44RND) 




3350 LET S3-80 

3369 RETURN 

3370 PRINT R T 13.3 

Ht, -mm/mm" -."•; * 



m 



,RT 8,E;'" 



;A+ 6,1 



•;at a,E 
";RT 4,E; " 
■ , or a,E + l;B«(0) 
3939 IF 6ID1-1 TtitH OOTO 2969 
2939 If 8(0) -2 TMEN OOTO 3070 
a940 IF 8(01-3 TMEN GOTO 30BO 
2030 IF 8(D) -4 THEN OOTO 2099 
3060 _PRINT RT 6 ■ E : " | . ■ , iAT 6,E 
; 'Jul "iRT 7,E;"« — "■ 

V ": AT 9 , E ; " 
2863 RETURN 
2079_PBINT AT B,E; 

, *_jm "iRT 7,E; "' 
T^',flT 9,E; " 

3673 BETUBN 

*l r ^ r ,(*f 9,E;" ^^ r 

2883 BETUBN 

2090PRINT RT 8,t/|L "JAT 6,E 

:" M "if"" 7,E;-JpBT T, ;At 8,E;" 

2095 RETU RN 

3199 rem maan^m^amtmmm 

2399 FOR D-l TO B 

2201 00SU6 S090 

3202 NEXT 

2206 LET OUT-1 

3313 LET SM-UBL Dt 

3230 LET 3N-3M 

3333 LET P -RNO 

3239 If P<0.8 TMEN LET P»-CMR» 5 

3240 IF P>-«.B THEN LET P«-CHR9 



3496 PRINT, 



c8 T 



34*0 LET 33-3 
34S9 RETURN 
3489 ^'RI KT RT 13 , : 



>0 IJRIN" 




3400 PRINT RT 13,3;" 

3B0B LET SS-10 

3318 RETURN 

3329 PRINT AT 13,3;" 



I PAINT : 



3330 LET 33-100 

3340 RETURN 

— PAINT AT 13,3; 



2ji° 



3369 LET 33-29 

3370 RETURN 

4900 PRINT RT 13,3; 



ON OOIT ORRD 



3344 IF INKEY*. 



THEN OOTO 323 



2246 IF INHEY«."B" THEN OOTO 223 

3346 OOTO 3244 
2239 LET G«-CHH« 61 
23S2 GOTO 2263 
2234 LET GfCHRt 39 
2363 PRINT RT 1, 13; 
13; " "IRT 3, 13; " 
**' ■• ■ , ,RT 3, 13; " 

";AT 7,13;" 

'; AT 9, 13, " 



*998 REM pMaKjHBBaUVBM 
3900 LET C-Ot I (D-1)*B)_ , ^ 

« pgjKi L» ; i e : - |p + AT_2 



(31-iLEN Dt.l) "5° 

I (31-ILEN D«*l .T/. 



3,14. ;;■■•' ;RT 4 

2265^!f Pi-CHRt : 



39 TM EN PRINT RT 
[*;;;■■"; AT 4,i4;"»il";AT 8,1 




CALCUL MENTAL pC 12 5i 



Un programme qui vous demandera de reviser vos no- 
tions de calculs rapide et de soigner vos reflexes. Vous 
pourrez sans doute, grace a lui, constater que le PC 1211 + 
40 donne PC 1251 a partir de ce numero... Pour le mode 
d'emploi, suivez le guide ! 

Michel DUPONT 




71RE* ...».—.. 

251'ft'! ?AUS£ * Cfii. 

CUi. HtHTflL* 
70IP6USE * • K* 

\i •••«•••♦• 

73iC L Eaa t WIT I28t 
BftMDOfl 1 Din ti(9)»'9 

8eiIN?UT •SO'JST'DIV/flE'. 
fiHGE/FIH 'VA* 

401 VI- LEFTI (UI.l) 

ieei if vi-'F" ooro 689 
118HF Vi«'S* GOTO 168 
138* IF VIO'D* 6ND VIO - 

H* PRIhT *1 LETTRE 

S.V.P.'i GOTO 88 

tJU INPUT 'QUEUES TABLE 

S DE DIV. ■?-.n«(«) 
132i L- UH FK8) 

1I4IF0B f-l TO L 

U3i> A5C 11DI <1»<e>iN 
.1)1 EF I<«1 OR l>37 
PRIhT 'Tftli.ES DE 1 A 
7 S.V.P'i GOTO U 
1 



• i < H3S < 21 S.V 

.P.'i GOTO 168 
LMUNNT 'TEH'S LlnlTE 

0/N ? '101 
2881TI- LEFT* (01.1) 
228i IF TI.'N* GOTO J88 
223H? TIO'O* GOTO 1S8 
2J8iISPUT "TEHPS EN SECO 

hEESi 'H 
2481TF (,<i OS tOl! PRINT 
8 < TPS < 16 S.V 

.P.'l GOTO 238 
26BIPRINT * ATTENT 

ION ••••••* 

263i?A0SE ' OUAhD TU R 

S THOUVE' 
2791PAUSE ' lAISSE TO 

N DOIOT* 
273'PAUSl ' SUR LA 

TOUChE* 
293iR£« . 



388IF0* N-8 TO 8-1 
303'Ei-"«S-( PSD I8>-I 
3181 IF V««'S* GOTO 338 
313! IF VI-'N' L£T S- RHD 

2> Ir **: GOTO 339 
328i JI-*/' 
3231 A- VAL alDi («»<8)» 

Wl Ltl>JC-A*B 
327i GOTO 348 
JJ8UI-'-* 

3S3'C-( SWD 98)>9iA.C-3 
3«fliK»- 87111 C-J*. STR* 

d.-.'iTi. STR« 3 
338IWAIT (H-6*)! PRIST " 

■1« 
333MF rt(>8 LET Ei« 

IHKIYI i GOTO ST8 
337iCALL tilEO 
3(8'el' MKEV< 
56*: IF El CAL. iUs3i 

ja;t :w goto 439 

369>G0T0 36C 

378:.ait ::'e 

398UF If' iW II 



MKIlTfl GOTO <6 
8 

loo: \r Et-T» ?*;*: ' 

3IEh lI|H*t34« 
[l 60TG «(9 
UCiSEE? 3i MINT ' 



588! PAUSE '■' 



1 Tisr: 



I fit Of VI'STM 

t B3T0 TO 
608iPR:n' 



von 



Is3 



CHnPUfTtR! 


Lade Runner 


Bftxtefbund 


Bradertwni) 




DEMANDEZ LE PROGRAMME 

4chefez yos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectlonne pour vous les mellleurs tog/clots actuelloment cll:,ponlbles on Franco. Nous no 
pretentions pas que cette llste est complete et definitive etllest evident quo nous y rajouterona requ- 
irement des programmes au tur et a mesure que nous lea teaterons. Pourtant, voua chorchcrcz en 
vain certains programmes qui joulssont d'une bonne reputation et qui se vendent aurtout grace a la 
publiclte et aux conaells des vendeurs qui ne peuvent pas connaitro tous les logiciels dlsponlbles. 
Nous avons classe a part les logiciels educatits et. par soucl d'honnelete, nos propres prodults : les 
Hebdoglclel Software. 

Les prlx sonl, nous resperons, les rnellleura du marche aurtout pour les abonnes - anclens et nouveaux 
- qui benetlclent en plus d'une remise de (0 %. SI vous etes nomtiroux a nous sulvre dans cette expe- 
rience nous pourrons rapldement arrlver A falre belsser les tarlfs des tournlsscurs pour attelndre 
I'objectll que nous nous sommes fixe : ramener les P''* & une plus juste valeur I 



%s 




BON DC COMMAND* » OECOUPER OU RtCOPBt 
SHIFT EWTKWS, 1>. tvtu&U For 75009 «WBS 
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la page pedagogique 

JEUDELOIE, 

I'orthographe pas a pas, sur TRS80 par E. CLERC 



Z> 



A VOS MARQUES 



CALENORIER OES JOURNEES 
GRATUtTES TEXAS 
Orflantsftes par TEXAS INSTRU- 
MENTS^ O.M . avec le con- 
cours d'HEBDOGtCIEL, |Our- 
nees graluiies concernant I'uti- 
dsatton des calcuiattices pro- 
grammables ou non. en milieu 
scolaire et ammees par Roger 
OlOl, speciaiisle en la manere 
Renseignements el inscrip- 
tions OPTIMA CONSEIL. Tel 
(7) 834.60 06. oo au journal 

Dales 

30 Mai STRASBOURG 

6 Juin GRENOBLE 

t.3 Ju-n LYON 

20 Juin CLERMONT-FERRAND 



LES VEINARDS 



Voict la lisle des premiers eta- 
blissements benedciant du pret 
dordmateurs. Le choix ful diffi- 
cile, les demandes etant nom- 
breuses el vanees 

ll nous a semble necessaire de 
pnvilegier dans un premier 
temps, les etablissements de 
province ne possedant pas [ou 
si peu) de materiel. 
Pour les autres pas de P.O.E. ! 

Du moins. pour I'mstant, puis- 
Que les candidatures sont etu- 
diees avec soin. Nous essaie- 
rons decontacter tout le monde 
dans la mesure de nos possibili- 
tes Seul le theme essentiel des 
projets appa rait dans cette list e. 
les experimentations proposees 
se presentant souvent sous la 
torme de volumineux dossiers. 



Maison des jeunes el de la cul- 
ture ESTRASLIN. commune de 
2800 habitants, dftveloppement 
de la micro-informalique en 
milieu rural 

Utilisation grand public et peda- 
gogique 

Contact Marc CHAMAY. profes- 
seur en Maths ENNA de LYON 
M05 ou T07 



Ecole annexe Hopital Psychia- 
tnque. LA ROCHELLE Simula- 
tion et creation de situations 
d'apprentissage en rapport avec 
les potentialites des enfants 
grace a un outil depourvu d'af- 
fectivite. 
Materiel M05 

Contact : BEYMichel. instituteur 
specialise. 



ECOLE DE 8EAUVALLON. 26220 
01EULEFIT Instrtut Medico- 
pedagogique Prive, enfants 
caracteriels Mi9e a profit des 
propnetes ludiques et creatives 
de I'ordinateur dans le cadre 
des matiere3 essentielles (fran- 
cais. anglais, maths). 
Contact : £ WHITENER. profes- 
seur d'angfais 



Ecole Pnmaire EPINEAU LES 

VOVES 89400 MIGENNES Ecole 

a deux classes 

Contact M J MEtSTER. Direc- 

tnce 

CBM 64 



Ecole de PICOTIERES OUEST 

83110 SANAflY 

Classe de perfectionnement 

Lettre publiee dans HEBDOGl- 

CIEL Aspect ludique el educattf 

de I'ordinateur 

TO 7 

Contact J FAGE. Instituteur. 



CEP "LA FLOR1DE" MARSEILLE 
E.A.O et club intormatique 
CBM 64 

Contacl : Jean-Marc MAZIZA. 
professeur d'elecirotechnique 



Ecole degarcons. LA CHAPELLE 

SAINT-LUC. 10600 Utilisation de 

Logo, travail individualise bene- 

fique aux eleves en difficult* 

COM. 64 

Contact- 

M. Andre MEIRHAEGHE 



Lycee Prive Technique Indus- 
trie! St-Joseph. 44230 SAINT- 
SEBASTIEN SUR LOIRE. 
Adapter les eleves de la section 
etectromenager a I'ulihsation 
des moyens inlormatiques (ges- 
lion de centre, de ventes et ser- 
vices apres vente, etc..) 
Contact M Lucien LE BERRE, 
Chef d'Atelier. 



Monsieur 

Je suis instituteur (46 ans I) dans 
une classe de Cours moyen 2* an- 
nee a NEUVILLE SUR SAONE. 
Depuis 2 ans, je pratique t'EAO 
dans cede classe a t'aide d'un TRS 
80 (Therese) auquelje viens d'ad- 
toindre un VGS 3003 (Vtrginie). 
Ces appareilssont en service pen- 
dant toute la journee et les eleves 
y ontlibreacces. Ilsypassent cha- 
cun W a 20 mm chaque jour. J'ai 
une quarantaine de programmes, 
pratiquementtousdemamain, qui 
me permeltent de varier de I'exer- 
c/ce rep&itif au jeu educatif en 
passant par la lecon "inlormati- 
see'. Les eleves ne semblentpas 
se lasser, au contraire. lis n'ou- 
blient pas, chaque matin de me 
demander si les ordinateurs sont 
enfonction. Les anciens eleves re- 
viennent de temps en temps ren- 
dre une visite a "Therese" notre 
premiere venue. II me semble que 
les acquisitions laites par I'inter- 
mediaire de I'ordi sont solides et 
de plus.je suisdelivre de certaines 
t&ches tastidieuses pour les el'e/es 
et pour moi, du type tables d'op6- 
rations ou ditficultes orthographl- 
ques telles que les homonymes 
leur et leurs ~ ce ef se - c'est et 
s'est... ou le caractere correction 
immediate fait merveille. 

CLERC Emile, Instituteur 
01600 TREVOUX 




& 



JEU DE L'OIE ORTHOGRAPHIQUE 
TRS 80 VIDEO GENIE 



Le but du jeu est defaire comple- 
ter un mot dans une phrase, ce qui 
oblige I'elfeve de faire les recher- 
ches d'accord. En cas d'erreur, 

I'affichage immediat de la bonne 
orthographe est tres formateur. 
Presentation ; Le parcours est af- 
fiche en permanence sur 3 cfltes 
de I'ecran. Regies du jeu et ques- 
tions sont affiches au centre. 
Chaque fois que I'eleve donne 
une bonne reponse, son pion 
avance d'une case. En cas de 
mauvaise reponse, le pion recule 
au contraire d'une case. II taut at- 
teindre la case 23 et on dispose 
de 36 questions pour franchir la li- 
gne d'arrivee. 

Ce qui n'est pas toujours evident ! 
Mais il faut que le jeu soil difficile 
pour qu'il presente un interet (je 
n'aurais personnellement aucun 
plaisir a jouer aux echecs contre 
monordinateursij'etaissOrdega- 
gner !) 



Le programme est prevu pour 
etre utilise par 30 eleves au maxi- 
mum mais il est facile de modifier 
ce nombre : 

ligne 5 : changer les DIM 30 
ligne 100 xhanger if K>30 
ligne 1 20 :changer for 16 to 30 
Chaque eleve doit avoir son n° de 
code qui permetde stacker les re- 
sultats de chacun. (n" de code de 
1 a 30). Lorsque I'enseignant tape 
le code 3. 14, 1'ensemble des resul- 
tats de la classe s'afflche. II suffit 
d'appuyer sur ENTER pour que 
I'eleve suivant puisse utiliser le 
programme a son tour. 
Les phrases sont entrees en DATA 
aux lignes 3010 a 3360. On peut 
les changer a volonte : on entre 
d'abord la phrase avec le "trou" a 
completer, puis les lettres qui 
manquent, puis la phrase comple- 
te pour la correction. 



.>.)•' 38>,E< 38 



. I* 38 ' 



3 cLE«Ri8ee = oiMp«36>,ps<3e>, j*o 

hY30> f 6CC30>*PO0) 

18 PL-8 i F-0 i H-0 ■ 3C-0 

100 CLS'IMPiJT-CfUEL EST TOfl CODE" ;Y \fY I'.'H ■'& llil-lll Vj 

118 IFK-3,14THEH111ELSE130 

111 PRIHT"C10E- HOn, CflSE ' QUE8TI0M8 »» FflUTES" 
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RESTONS SIMPLES ! 
Cette page educative etant 
reservee aux enseignants, 
I'equipe de Redaction ne 
portera aucun jugement de 
valeur quant a la qualite 
pedagogique des program- 
mes ou articles publics Les 
critiques emanant d'ensei- 
gnants seront toujours les 
bienvenues : elles seront 
publiees et transmises aux 
auteurs concernes. 

P. GLAJEAN 
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2200 F0RI = 1T046 POI-'E15360+534+1 .61 -NEXT I 

2250 FOF:i = IT0-lis POKE 15360*554+ 123*1 .61 -HEXTI 

2300 PRINT5??7,"0U'RJ0UTE3-T'J fl LFt FIM DU MOT INCOMPLETE 

3000 WITR36 

3019 DfiTfi"LES HIP0NDELLE3 SONT REPflRTl... ".ES."LE5 rllROWEUJES SONT REPRRTIES.' 

3020 DffTB'JE SUIS TOME... ,DIT NfiDINE. " ,EE, " JE SUIS TOHEsEE. DIT MflDlllE." 

3030 DHTH"I1E3 DENTS DE LFUT VOMT TOHB... ".ER.'TtES DENTS DE LR1T VOtlt TOnBER." 

3840 DHTft".J0U... DE LA FLUTE N'EST PflS FACILE. ".ER. "JOUEP DE LA FLUTE H'EST P*>S 

FRCILE." 

3050 DATA-IL FAUT CHERCH. . . Lfl BONNE REPONSE. ".ER. " IL FFlUT CHERCHER LR BOttlE REP 

OHSE. " 

3060 DfiTfi"RvEZ-VOUS PR1... VOTRE IHPERHEFtBLE?" .S. '•AVE2-V0US PRIS VOIRE IMPtRMEftB 

LE?" 

3070 DflTfl'OOE RAPPORTE.. LES CNftSSEURS?",NT. "QUE RAPPORTENT LES CHfiSSEURS - '- 

3039 DflTA"UH LEGE... VENT SOUFFLE SUR LA REGION. ".R, "UN LECER 'VENT SOUFFLE SUP L 

A REGION." 

3030 DATR-DEMAIN. TU APPRENDR. . . UNE P0ES1E. ".flS, "DEMRIN, TU ftPPREIC<RAS UHE POES 

IE." 

3108 DATA"RRRIV... AU SCHI1ET, ILS SE REPOSENT. " .ES. "ARRIVES AU SOttCTj 1LS SE RE 

POSENT." 

3118 DflTA'-PHUL ET TOI JOU. . 

3120 DATA"TOUTES LES PAGES 

SONT INTERESSRNTES. " 

3130 DHTA-TOH PERE ET LUI LAVE.. LA VOITURE. " .NT, "TON PERE ET LU1 LAVENT LA VOIT 



I LETTRES SONT LISIBLES. ",ES. "BIEH ECRITES. CES LETTRE 



INVITEES SulM MPPIVELS 



3140 DATA-BIEN ECRIT.. 
S SONT LISIBLES." 

3158 DfiTA"LA JDURNEE S'EST B1EN PASS. . . ",EE. "LA JOURNEE S'ESl BIEH PftSSEE. " 
3160 DfiTA-LE CVCLISTE R APPU. . . SUR LES PEDRLES. ".YE. "LE CVCL1STE A APPUYE SUR L 
E3 PEDRLES." 

3170 DATR M TES HIRONDELLES C0I-1HENCENT A ARRIV. . . ".ER. "LES HIR01IDELLES COHMEMCEMT 
^ Mf'F 1 IVER " 

3130 DATA"ELLE A BIEH RPPR. . . LE CODE. 'MS, "ELLE A BIEH APPRIS LE CODE. " 
3130 DRTR-LES INVITEES SONT ARRIVE... EH RETARD. " "" 
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3200 DflTfl'UHE FILE DE VOITURES EST ARRET. .. ".EE, "UHE FILE DE VOITUPE EST ARRETEE 

3210 DATA-'BIEH ECLAIR... ,LR HBI80H EST GfllE. ",EE, "BIEN ECLAIPEE LA MR I SON EST G 

HIE. 

3220 DATA-CE LIVPE RACONTE DES HI8TQIRE8 VEC'J. . . ",E3. "CE LIVRE RRCONTE DES HISTO 

IRES VEOJE8." 

3230 DATA"ELLES fiVAlEHT RfiPPOR... DES FUEURS. ".TE. "ELLES AVR1ENT RRPPORTE DES FL 
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3260 DATH-ELLE A FAIT COUP... 8E8 CHEVEUX. ",ER, "ELLE A FRIT COOPER SES CHEVEUX." 

3270 DATR-LA FILLETTE ENDORfl... SUCE SOU POUCE. ".IE. "Lfl FILLETTE EHDORMIE SUCE S 

OH POUCE." 

3230 DRIA"LES PROBLEMES DONN. . . SONI Ihi,ILES. " -ES. "LES fpnKl.I- HI-*-. DUNNE';. SOtll If. 

ILES." 

3230 DATA-CRI... N'EST PAS CHAHTER! ".ER, "CRIER H'EST PAS CHANTER!" 

3300 DATA'-LA VIANDE GRIU EST BONNE. '.' .Et . "LA VlfiNDE GRILLEE EST BOHHE." 

3313 DATA"M0H FER ft REPASS... EST CRSSE. " -EP. "HON PER ft REPflSSER EST CflSSI ." 
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3360 DATfl-Lfl PARTIE EST FIN. . . Mt, "LA PflRTIE EST FINIE." 
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LE HIT DU BLASE 



Bonjour a tous. mo voici de rotour 
avec mon I II I PARADE DES MEll - 
LEURESVENTESDELASEMAINE 
suf un nouveau micro-ordinnteur, 
chaque semalne. J'al pass6 do 
bonnes vacances. morel... J'ai 
benucoup planolo sur de super- 
bos no u venules que dovoilera lo 
HII d'HEBDOGlCIEL. dans les so- 
maines a venir 

Colto semalne. je vais faire plaisir 
aux ATARIMEN. avec. sansaucun 
douto, le programmo lo plus d6- 
ment de ces dernieres annees. a 
avoir obhgatoiremont dans sa lo- 

gjthequa jo parte do pole posi- 
tion. POLE POSITION se joue 
seul. les piliers de bistros le con- 
naissent a (ond dans des versions 
plus ou moins difterentes, et ATA- 
RISOFT nous offrent ici uno ver- 
sion qui n'a rien a envier a ses 
grands (reres, Je suis pilote F1. et 
jo dois affronter 3 courses au 
choix, le Malibu Speedway, le 
Namco Speedway et ('Atari 
Speedway, classees par ordre de 
difticulte Premiere operation, il 
faut se qualifier pour la course, il 
suffi t pour cela, de faire le premier 
tour du circuit dans un temps mi- 
nimum et en consequence, 
d'avoir le moins d'accident possi- 
ble, car I'utilisation du "Turbo" de- 
vient necessaire, Une fois qualifie, 
je choisi le nombre de tour que je 



viix "ll-'i Iter I I l,i. )<■ rfnilt. pn.ir 
moi ! Realisme saisissant.impres- 
(dormant un crash apres un dora 
page non controiea 300 km/h. Je 
rappollo que le compteur est en 
miles, evidommont et quo le jeu 
POLEPOSITlONsetrouvesurune 
cartouche et so charge automalt- 
quernenl 

SHAMUS, vous connaissez, non ? 
Mos fideles locteurs en ont deja 
entendu parlor ; voici ce dont il 
s'agit : me voila transforme en pe- 
tit bonhomme et jo dois explorer 
un labyrinthe avec mon pistolet 
laser, tuant a qui mieux mieux tout 
ce qui bouge pour augmenter le 
nombre do mes vies, attrapor 
plein de cles pour passer dans 
des chambres protegees. Dans 
ce jeu il y en a 32, alors avant d'en 
venirabout ICejeu ost egalement 
en cartouche. 

NECROMANCER dans le genre 
est assez fabuleux pour le nom- 
bre desc6narios qui s'enchainent 
durant ce jeu, d'une rapidite a 
vous couper le souffle (cardia- 
quess'abstenir...)etdunequalite 
graphique exceptionnefle. L'inv 
porlateur ARIOLA a donne com- 
me litre francais "LE NECRO- 
MANCIEN" qu'est ce que e'est 
que 9a ? Et bien je dis lever une 
armee d'arbres dans la foret en- 



chantecetavanceravoceuxsous 
la vouto du necromancion pour 
(Mtrutnl le malin qui so cache 
dans sa taniere. Etant druide. ie 
dois faire pousser un maxintum 
d'arbres sons quo les ogres no les 
6crascnt ou quo larargnee ne les 
empolsonnent et lefout. en regar- 
dant La Force Une fois rencontre 
le necromancion, je dois detruire 
toutes les larves daraignees qui 
le protegont. Pour ce faire, je dois 
faire pousser mes arbres ou les 
faire marcher (oui e'est possible 
quand on est druide) dans des 
caveaux afin qu'elles tombent et 
s'ecrasent au fond, ces larves do 
malheur 

Enfin, dans I'antre du Necroman- 
cien, la destruction de tous les 
tombeaux aboutit a la suppres- 
sion du MAL et mapporte la puis- 
sance de La Force. Logiciel exis- 
tant sous lorrne do cassette ou 
disquette. 

JUNGLE HUNT est le reve de Tar- 
zan personnifte sur votre ordina- 
teur ; Moi Tarzan dois arracher 
Jane aux Cannibales ; saut au- 
dessus du vide de liane en liane. 
fleuve a traverser et j'en passe. 
Cartouche amusante. 

CENTIPEDE encore un jeu connu. 
Restant dans le style "envahis- 




seurs". avec plusieurs scenarios. 
je dois lirer sur des mechants. 
pour proteger mon centipede. 

Encore une cartouche de chez 
ATARISOFT Bonne semaine a 
Tous. 

CLAUDIUS 



MINI-TRAITEMENT DE TEXTE , 00 

DRAGON & 



Voici un programme a qui vous pourrez confier tous vos 
problemes de courriers. de composition, de mise au net 
ou tout simplement d'ecriture. 



Amara CONTE. 



Mode dempfoi 



I s shift 

SY 

CI 

I E shift 

SA 

D 

CE 



insere le caract, S apres VOUS et retoume en mode 

d'edition. 

avance le curseur jusqu'au caract. Y 

change le caract. y en I 

insere le caract. E apres le I et retourne en mode d'edition. 

avance le curseur jusqu'au caract. A 

efface le caract. A 

change le caract. I en E 



ENTER 



efface le reste de la ligne a partir de la position du curseur 

et se met en mode d'insertion. 

insere les caract. ES. apres le E. 

valide la ligne et quitte le mode d'edition. 



La configuration de base requiseest un micro-ordlnateur DRAGON 32 24 ESPACE avance le curseur de vingt-quatre espaces 
un magnetophone standard (ou moyennant quelques adaptations, un u 
lecteur de disquettes). et une imprimante 80 colonnes. 
Ce programme Basic a besoin pour fonctionner de tou te la memoir© vi- 
ve de votre DRAGON 32. Vous devrez done, avant de le charger dans 
votre ordinateur. taper POKE 25.6 ; NEW Ceci sert a porter les 24871 
octets utilisateurs a la mise sous tension de votre ordinateura31015oc- 
tets. Ce POKE libere la place memoire utilisee pour la gestion des pa- 
ges graphiques . etant donne que le programme n'a besoin que des pa- 
ges texte. on peut ce permettre ce gain de memoire. Ceci est tres im- 
portant : sans ce POKE 25.6 ce programme ne peut etre execute. 
Je REAPEAT ; avant de charger ce programme en memoire vive. taper 
POKE 25,6 : NEW puis charger votre programme par CLOAD. 
Taper RUN apres le chargement. 

TRAITEXT offre les commandes suivantes a I'utilisateur ■ 
COMMANDES. CREER. NCREER. CHARGER. DETRUIRE EDITER FU- 
SIONNER, INSERER, LISTER, NLISTER, MEMOIRE, OPTION. QUITTER 
REMPLACER. SAUVEGARDER. TROUVER. 
A I'execution. le programme vous atflche un menu 

1 CREATION D'UNE LETTRE 

2 CHARGER UN RCHIER EN MEMOIRE 

3 AVOIR LA LISTE DES COMMANDES 
A EXECUTER UNE AUTRE COMMANDE 
Entrez votre choix. 

Sachez que chaque commande peut etre entree en t ou te let t ro ou seu- 
loment en abrege. Parexemple. CR pour CREER. NCpour NCREER ED 
pour EDfTER. OP pour OPTION, LI pour LISTER, etc. 
Vous trouverez la liste ainsi que la signification de chaque commandes 
ci-apres : 



A suivre : 

En raison de la longueur 
inhabituelte du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



Commandos : cefte commande permet d'avoir la listedes commandes 

.jinsique \-iw signification ;;ommaireu!ilisees dans cemini-traitemont sur imprimante 



Fusionner : cotte commande pormot de charger un texte a partir d'une 
bande magnetique en memoire sans pour autant effaccr celui qui s'y 
trouve doja. Le nouveau texte est place a la suite de celui deja present 
en memoire centrale. 

Inserer : cette commande permet d'entrer do nouvelles lignes de texto 
au milieu d'un texte deja existant. Ce nouveau texte est place apresce- 
lui dont le n" est donne comme parametre a linstruction INSERER. 
exemple ; INSERE 2 insere de nouvelles lignes apr6s la ligne n" 2. 
Lister ; cetto commande pormel de listor tout ou partie du texte sur 
recran ou sur I'imprimante. 

NLi ster ; idem que LISTER mais le n D de la ligne est affiche en dftbut do 
chaque ligne. 

Memoire cette commande permet d'eflacercompletcment la memoi- 
re de votre ordinateur et de retourner ensuite au menu. 
Option : cotte commande permet de changer la presentation de vos 
textes sur ecran ou sur imprimante. 
II y a dix options disponibles, 

1/ caract. do tabulation : entrez le caractere qui sera reconnu par le 
systeme pour creor une tabulation sur ecran ou sur imprimante. 

21 valeurs de tabulation ecran ; entrez les valours de vos tabulations 
sur ecran. 

3/ valeurs de tabulation imprimante : idem que 2 mais pour impriman- 
te. 

Al marge de gauche : entrez la valeur de la marge a gaucho. 

5/ marge de droite imprimante : entrez la valeur de la marge a droite 



do texte. 

Creer : cette commande permet de creer un texte ou d'ajouter des li- 
gnes au texte deja en memoire centrale, 

N Ccreer : idem que Creer mais la ligne courante est attichee avec un n" 
rle ligne a son debut. 

Char ger ; cette commande permet de charger un texte sur bando ma- 
qnelique on memoire centrale Pour annuler la commande ontrez "/" a 
la question ; NOM DU FICHIEH ? 

Si un texte se frouve en memoire, celui-ci est efface de la memoire. 
Delruire : cette commande permet do detruire tout ou partie du texte 
se trouvant en memoire 
exemple : DETRUIRE n 1 : detruit la ligne n° n 1 

DETRUIRE n 1 to N2 : detruit les lignes se trouvant entre n 1 ot 
nZ 
Edito r : cette commande permet de corriger une ligne donnee. Les ins- 
tructions ci-apres peuvent etre utllisees on mode d'edition 
C caractere : change un caract6re. 

change n caract6res. 

insure des caracteres. 

detruit le caractere survant, 

detruit les n caracteres survants. 

detruit le reste de la ligne a partir de la position du 

curseur et se met en mode d'insertion. 
X : positlonne le curseur en fin de ligne. 

5 caractere : cherche la premiere position a partir du curseur oil co 
caractere apparail. 
avance le curseur d'un espace. 
avance le curseur de n espaces. 
recule le curseur d'un espace. 
recule le curseur de n espaces. 
met fin au mode d'insertion et retourne au mode d'edi- 

tion, 
ENTER : met fin a l'op6rafion d'edition 

e xem ple ; soit a corriger la ligne n" 18 ci-apr6s : 
IE VOU PRY D'AGREER. MONSIEUR. MAIS SALUTATIONS DISTIN- 
GUE! 

ordre : EDIT 18 ENTER 

>>ffichage au bas de recran de la ligne a corriger. 

affichage en haut de I'ecran du curseur. 

taper 

6 ESPACE avance de six espaces vers I'avant. 



nC caract. : 




nD: 



ESPACE : 
n ESPACE : 



shift t : 



6/ marge de droite ecran : idem que 5 mais pour I'ocran. 

7/ interiignage ; entrez la valeur de I'interiignage 

8/ chargement d'options : possibllite pour I'utilisateur de charger en 
m6moire ses propres options. 

9/ sauvegarder vos options ; possibility pour I'utilisateur desauvegar- 
dor sur bande magn6tiquo. sos propres options. 
10/ quitter le mode ■ quitter le mode OPTION pour retoumer a la suite 
du programme. 

Q uitter : permet de quitter le programme TRAITEXT 
HEMPLACER : cotto commando permet de romplacer uno ligne don- 
nee par une nouvello 
exemple ; REMPLACER : remplace la ligne courante. 

RE 11 : remplace la ligne n" 11 
Sauver ; cotte commando permet de sauvegarder votre toxte a partir 
de la memoire sur bande magnetique. 
Vous pouvez sauvogarder tout ou partie do votre toxte. 
exem ple : SA ; sauvegarde de la ligne courante sur cassette. 

Sa 1 TO - : sauvegarde de I'ensemble du texte aur 

f;,'ivfctt« 

Sa 1 TO 8 : sauvegarde sur cassette les lignes 1 a 8. 
Trouvor ; cotte commando pormot do rocherchor un caractere ou un 
groupo do caracteres sur toute ou seulement une partie du texte. 
oxomplo ; TROUVE 1 T0 11 puis BB ; recherche le groupo do caract. BB 
ontrnleshgnosOot llotnffir.heloslignosouloflroupedecaract.BBap- 
parait. 

Volld, co programme do traitomont de toxte comporto un grand nom- 
bre do ligm ■ ■ . A vous do los frapper ; ce sera assez long. Mols Jo pense 
qu'il on vaut la peine I 

Lo petit mot do la fin (voir fin du listing) ost totaloment fncultntif. II n'est 
la quo pour faire joll ! Vous pouvozdonc no pas frapper los lignos 6360 Ot 

■;uiv.in!r-. 



DRAGON 32 pour sa premiere apparition dans I'Hebdo 
propose un programme de qualite : Un traitement de tex- 
te, rien que ca ! En avant les amateurs de Dragoniste, nous 
attendons vos programmes. 



226 ' PRESENTATION 

238 ' 

246 POKE 63493, 9 

236 CLS 

260 FOR I-I TO 32'PPINTCHP*M28>i 'NEXT I 'PRINT 

270 PRINTTf1B'"4J"rnNI-TRfllTEh'ENT DE TEXTE" - PRINT 

280 PRINTTfiEKarPRR flMfiRA CONTE" 'PRINT'PRIHT" (C 

rCBOOClCIB. ET RMflRn C0NTE"'PRINT 

290 FOR I-I TO 32 'PRINTCHR«( 120)i 'NEXT I 'PRINT 

300 ' 

310 CLEAR 6000 

320 6Q8UB 6119 

330 1 

340 PRIHT-1 CREOTION O'lJH TEXTE 

330 PRIHT-2 CHRRCEMENT D'UH FICHIER 

360 PRIHT-3 AVOIR LH LISTE DES COHMflNOES" 

370 PRINT "4 EXECUTER UNE RUT RE COffflVM' -PRINT 

380 PRINT "VOTRE CHOIX ?' , 

390 Sfl»"INKEY»' IF 8M-"" THEN GOTO 390 

408 IF RSC<S«e><49 OR fl3CCSfl«)>32 THEN GOTO 390 

ELSE PRINT Sfl*'F0R T-l TO 388 -HE 

XT T'CLS 

418 IF Sfl»--1" THEN 0«--CREER- 'GOTO 378 

420 IF SR«--2" THEN 8«- "CHARGER" 'GOTO 370 

438 IF 3A»-"3" THEN B«-"C0HMOfC^S" 'GOTO 370 

440 [F SR«-"4" THEN CLS'GOTO 330 

438 1 

468 1 

470 ■ 

490 * ROUT I ME PPINCIPALE 

490 ■ 

310 ■ 

328 1 

330 ' LECTURE DE L'ORDRE 

348 1 

330 P0KE63493,9'PRINT'LIHE INPUT ' 

368 IF LEN<M)-0 THEN 330 

370 PRINT 

380 >I'Jl-e.Ot-""'N«-""-Ht-"" 

398 1 

688 ' DEC00AGE DE L'ORfjRE 

618 ' 

620 CMHDtcn* J, I ) 

630 IF (ASCCCa)<63) OR (ASC<Ct)>90> THEH GOTO 690 

648 <■*-<)*'< « J- 1.1 

638 IF JH0KW) THEN GOTO 880 ELSE GOTO 620 

668 < 

678 ' DECOOAGE DU PREMIER PARftlETRE 

688 < 

698 Ca-MIOfKB*, J,l ) 

780 IF <ASC<Ca><48) OR 

7iH H»-Ma*ca'j-j*i 

728 IF J>LEN<e»> THEN GOTO 988 ELSE GOTO 698 

738 IF C«-"- - THEM J-I 

740 J-J*l>IF J>LEM<8«) THEN GOTO 888 

738 IF N«-"- THEH GOTO 699 

768 1 

779 ' DECOOAGE DU SECOND PARAMETRE 

798 Cf*-MID«<B«.J,!> 

988 IF ASC(C«)<48 OR A8C<C«»37 THEN GOTO 830 
810 rt»-Mt*Ct' JaiJ*l 

828 IF J>L£N'u»> IHEN GOTO 0«9 tl.SF GOTO 799 
838 IF C*-"-" THEN JI-1 

948 J-J+1'IF < J-anN<P«)> AHO 'M»-""i THEH GOTO 798 
938 

969 ' INTERPRETATION DN ORDRES 
870 • 

980 IF N»<>"" THEN N-VRL(M«> 

990 IF H»0~" THEN M*VAL<M») ELSE IF Jl-Q THEN M"N ELSE M-I-l 
■" *l-LEHT0«>- IF Tl>9 THEN GOTO 1990 



"-■..'il - 



ASC(C«»37) THEN GOTO 730 



918 



-TI> 
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PROGRAMME GESTION/BAS 



Ce programme permet la tenue d'un compte en banque 
et devrait vous facilitersa gestion... Lorsqueje vousaurais 
dit que la consultation des informations qu'il contient 
n'est permise que contre un numero de code (que vous 
pourrez changer & loisir), vous ne craindrez pas de lui 
confier toutes vos operations sans crainte d'une indiscre- 
tion de la part de votre ordinateur prefere. De plus le pro- 
gramme n'autorise que 3 essais dans un temps de 30 se- 
condes pour fournir le code, apres quoi il detruit le fichier 
{ou bien retourne au DOS si vous n'avez pas confiance en 
votre memoire). De plus si vous avez pris soin de faire 
fonctionner votre programme en mode "RUN ONLY" et si 
vous desactivez la touche <BREAK> vous aurez je pense 
suffisamment bien protegevotre programme devant une 
personne indiscrete (a moins que celle-ci connaisse tres 
bienleTRS80...). 

Le programme est long (plusde 650 lignes) aussi pourac- 
croitresalisibiliteetdiminuerlesrisquesd'erreursdefrap- 
pe, je vous propose un listing utilisant 64 caracteres de 
large. Ceci permet d'avoir un listing correspondant exac- 
tement a ce que vous lirez sur votre ecran (j'ai evite autant 
que possible de tronquer les lignes). Pour I'affichage du 
titre j'utilise I'astuce des chaines graphiques, c'est-a-dire 
que je POKE a I'interieur d'une chaine normale des codes 
correspondants a des caracteres graphiques. Grace a ce- 
la on obtient un affichage tres rapide et une occupation 



memoire minimale, mais oblige a une petite manipulation 
lorsdel'introductiondu programme. Si Ton procedecom- 
mesuit.il n'yaaucunproblemes: 1) Introduce le listing du 
programme "CHAINGRA/BAS" tel qu'il se trouve. 2) Le 
sauvegarder au cas ou vous auriez commis une erreur. 

3) Le lancer. Si tout va bien, apres quelques secondes le 
programme affichele titre en GROS CARACTERES. Siau- 
cune erreur n'est detectee dans !e graphisme passez au 
point suivant, sinon rechargez le programme etverifiez-le. 

4) Effacer les lignes inutiles : DELETE 1-170 et DELETE 
25000-25220. Le programme ne devrait plus contenir que 
les lignes 20000 a 20110. NE PAS EDITER UNE DE CES 
LIGNES !!! 5) Introduce alorslerestedu programme prin- 
cipal "GESTION/BAS". 

AUTRE POINTPARTlCULIER:Comme vous allezlevoirce 
programme contient un numero decode. Or pour que ce 
code soit invisible au listing j'ai du le cacher derriere une 
ligne de programme (ici en I'occurrence la ligne 230). 
Lorsque vous aurez a introduire cette ligne vous vous re- 
porterez aux instructions suivantes : 1) Tapez : 230 ES= 
"0000":'. 2) Faites<ENTER>. 3) Puis EDIT 230, <ENTER>. 
<X>. 4) Appuyez sur<SHIF7> puis (fleche a gauche), jus- 

qu'a recouvrir le E. 5) Tapez alors : ' jus- 

qu'a recouvrir la ligne. 6) Faites <ENTER>. 7) Si vous listez 
la ligne 230 le code doit rester invisible, celui-ci ne devient 
visible que lorsque vous editez !a ligne. 



DERNIER PETIT DETAIL : Si dans le listing vous apercevez 
le caractere < > cela correspond a la touche (fleche a 
gauche), de meme <> correspond a (fleche en bas). 
Certains d'entre vous se demandent peut etre comment 
introduire ces caracteres puisque les touches flechees 
n'affichent pas la fleche correspondante (a part la touche 
< >). II suffit pour cela de presser simultanement les tou- 
ches <Y> <l> et sans les relacher de presser une des tou- 
ches <M>ou <L>. Puis en editant la ligne il faudra suppri- 
mer les caracteres superflus. Cela vous parait peut-etre 
bien complique mais cela donne bien meilleur aspect au 
listing (Pure affaire de gout...). 

Luc WEYNACHTER 

INSTRUCTIONS D'EMPLOI DU PROGRAMME "GESTION/BAS - 
Le programme est tres facile d'emploi et guide suffisamment I'uMisa- 
teur pour que I'on puisse se passer de tout mode d'emploi (ce qui per- 
mettra de se consacrer a 1'introduction du programme, ce qui est loin 
d'etre une sinecure...). 

Explications complementaires : s'adresser a I'auteur : Luc WEYNACH- 
TER 111 rue de Brunswick 30000 NIMES. 



TRS80 



.■ USAGE DE (BREAK) 



• SJ- 

■■■-■ 30OB 
130 0*-CHR»<191> 

1-88 DEFINT T-Z 

118 DEF FNGfA>=PEEK< SH4B2 0) -25E,*PEEh( SH4021 )- 152G0 

228 ON ERROR GOTO 5B00B 

240 ' QFFICHAGE DU TITRE ET PRESENTATION 

158 - 

260 CLOSE 

27B CLS 

2S0 C-OSU& 2BB30 

238 ■•*.* BFFICHOGE TUBE EN GPOS CQRACTERES -*** 

IBB PRINT313.A*<1 >:PRINT377.A*<2> ' )) GESTION 

31B PRINT3217.A*<3) :PRINT32B1 . A*(4> " >> DE 

320 PRINT3397. M<5) : PPINT34E1 . A*<&) ' >> COrlPTE 

5M PflINTaS89.M(7) :PRINT3&49. 0*<8) ' >> BONCAIPE 

340 P=INT3S32. STRING*' 63. 148) ".: PRI NT3960- STRING* 'S3. 1 

;^a •*«•» OFFICHAGE BANDE GL I SSONTE BOS ECRON **** 

368 C»="'C J983 oar Luc UEYNOCHTER Version ! 

37B GOSUB 410:IF I» (> " " THEN IF QSC(I»>=13 THEN 54B 

33B C*=-POUR CONTINUER PRESSER (ENTER) "*STRING*r 31 . 32 > 

39B GOSUB 410:IF !*(>"" THEN IF OfiCCI»J-13 THEN S4B 

400 GOTO 3SB 

4:8 FOR T=l TO 63 

423 FOR K*I TO 5:NEXT K 

438 0*=STPING*'63-T.32>-M_EFT*(C*. Tj 

i43 PSINT3396.D*; 

458 I*=INKEY* : IF I*(>"" THEM IF ASC'I*)=13 THEN RETURN 

4GB NEXT T 

47B FOR T=l TO 63 

46B FOR K"l TO 5:NEXT K 

498 D*=RIGHT*'C*. 64-T) 

500 PRINT3S96.D*: 

SIB I*=INKEY* i IF !•<>■■ THEN IF OSC'I*>=13 THEN RETURN 

328 NEXT T 

538 RETURN 

540 ■ 

558 ' CODE CONFIDENTIEL. 

568 ' 

57B CLS 

5EB PRINTS 126. CHfiKlEEi :STRING*'E2. 14B) :CHR»< IBS) 

53B PRINTS 192.0*: :PRINT3255. 0»: :PRINT3256. D»; :PRINT3319. Q*i 

S0B PRINT32G1. "L' entree dins ce nrosramme n'est oerrmse oue contn 

610 PRINT3320.O*; :PRINT3363. D»; 

620 PRINT3325. "ur, numero de code con-r i dent . el . Ceo Jfin de -isrjr.t 

&3B PRINT3334.P*: : PRINT3447, O*: 

S4B PRINT33S9."ie secret des ,n<or»ii ,ons contenues dans le ficn.e 

£58 PRINT3448.Q*: : PRH1T351 1 ■ 0*: 

£60 PRINT3512.CHR*' 143) : STRING* '62. 140> :CHR*C143) 

678 PRINT 

638 PRINT" ENTREZ VOTRE NUMERO DE CODE A 4 CHIFFRES : ..,."1 

E3B PRINT396B. "VOUS OVEZ 3 ESSfllS ET 30 SECONDES POUR INTRODUIRE 

710 8*="- 

72B TR=1 'DR0PEAU POUR H0RLOGE 

73B FOR T=I TO 4 

74B TU=751'T:GOS'JB 1B08B 

750 IF I*<"8" OR I*) "9" THEN GOTO 740 

7&B PRINT3TU. "•": 

778 &*=&**!* 

720 TJEXT T 

798 If B«-8* THEN e8» ELSE TS-TS*1 

795 IF TS=3 THEN GOTO 15BB0:ELSE PRINT3978. 3-TSl t 

■::IF TS»2 THEN PRINT397^." "iiGOTO 710 ELSE GOTO 718 

600 rp-0 -REMISE fi ZERO DPPPEfiU 

810 PHINT3752. " OK "I 

B20 '-•'* OUVERTURE DU FICHIER PRINCIPAL *** 
330 OPEN "R". 1. "FICHPRIN/FIC-.60 

840 FIELD Hi S (IS Dfi*. 6 «5 Nfi*. 6 OS FO*. 3 05 DE*. 8 OS MO*. 
850 FIELD It. &» OS Bl* 
E&B UB-LOFi 1 ) :ZZ-U8 

878 •**• OUVERTURE DU FICHIER SECONDOIRE •** 
S30 OPEN ■■R".2-"FICHSEC0/FIC' , .E.B 

S9B FIELD »2. S OS BG*. G BS BD*. E. OS BE*. 3 OS BF*. E OS BH*. 
90B FIELD »2. &0 fiS BB* 
918 UC-LOFI2) 

1010 ' MENU 

102B ■ 

1B38 TK=B '*!»• a z*"> draoeau "!unor»t»lofi 

184B TZ-0 '»i«e a **"> draoeau "waif 

1050 UB-ZZ 

1B70 PRINT STPING*'26. 148) ?0*f MENU " tO*l STRIN0»<26. UB) 

I0E0 PR I NT i PR I NT 

1B9B PRINT T0B'15i"'l) Ent.ree d'une operator.." 

1100 PRINT TOB'15>"<2) Mod, r. nation d" one ooerat.on. 

1110 PRINT TP.BM3>"<31 SuPOres«,or. D'un* ooerat.on. 

1120 PRINT TOB'15)"(4) I-.eress.on du ».ch,er." 

I 130 PRINT TOB< 15) "(5) R^w.^h* d' une operation. 

114B PRINT TOB' 151" IS) F'» du nroi r itvt*. " 

1150 PRINT T0B'15) M (7) Hod , ■» . cat . or, r.o de code. " 

1168 PRINT T06<15>"<8) ",se er, attente du nro>rJ'»»." 

117B PR1NT3960, "Ind;au»* i ' cot . on cno.tti" > "! 

11S8 TU = 959:G0SUE) 1 0008 

1190 IF l*("l" OR I»)"Ei" THEN 1 1 BB 

1280 ON VRL'I*' GOTO 2aM>3BV0rA0M>SBMt£0Mt7SM>B0Hi23fl 

:bb8 • 

;:b05 • sqisie d'une operotion 

20 IB ' 

2B15 UB=UB»1-.ZZ-ZZ*1 

2820 CLS 

2025 PRINT STRING*'19. 140)tD«:" S0I5IE D'UNE OPEROTION "10*1 

140): 

;0'.0 PRINT3202.CHR*' 1 BB) i STRI NG» i 43. I4B) :CH0*i lEEn 

2B35 PRINT3266.D*!" NATURE « - t I PR INTS310. 0* 

2040 PR!NT3330.O»i" FORME I " I ! PR I NT3374. 0* 



2045 


PPINT3394 


Q*i" 


DOTE 


2B50 


PPINT345S 


0*1 ■ 


MONTONT 


2B55 


PRINT3522 


B*l" 


LI BELLE 



S Ma. 19G3 ' 



A suivre : 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



VOTRE CODE. ' 



PRINT3752. 



STRING*' 19. 



THEN 217B 
"ARTE BLEUE" 
"HEOUE 



"DED1T 



THEN 




2060 PRINT358E. STRING*' 10. 179> ; ST RING*' 25. 131 II SI 
2865 PRINT3650.STHING*'45.D*> :PRI NT371 4. STRING*. 4 
2B7B PRINT3668. ""UPRINT USING" OPEROTION NUMEHO 
2875 IF TZ = 1 THEN PRINT3S96.' (3) wgi i vv?., . . 

r .e (hinn. " : GOTO 2085 

208B PRINT3914." (3) Poor reven . r do Menu." 
20E5 '**♦* SOISIE DES INFORHfiTIDNS •«*« 

2090 ' NATURE 

2095 GOSUB 2560 

2100 TU=2E0:GOSUB 10800 

2185 IF ASC(I»>=1B AND T2=l THEN PRI NiaTU. NA»: - " 

2110 IF I*=-3" THEN 2655 

2115 IF I*<>"D" AND I»()"C- THEN 2100 

2120 IF I*="D" THEN PRINT3TU. "DEBIT " 

2125 IF [«B"C a THEN PRINT3TU. ■'CREDIT" 

2130 " FORME 

2135 GOSUB 2575 

2140 TU=344:GDSUB 10000 

2145 IF ASC(I*)°1B AND TZ'l THEN PRI NT3TU. FO*! " 

*:GDT0 2190 

215B IF ASC'I*)=E4 THEN 2655 

2155 IF I*="V" THEN PRI NT3TU. "V1REMENT "tiLSET 

21SB IF I»0"C" THEN 2148 

2165 PRINT3TU. "C"iiTU-TU+l 

2178 GOSUB 10000 

2175 IF I*<)"A" AND I»<)"H 

2I8B IF !*■"«■ THEN PRINT3TU 

21B5 IF I*-*H* THEN PRINT3TU 

2198 '— DEBITE ? 

2195 IF TZOl THEN LSET DE»= 

2280 IF FO«="CHEDUE" AND NO*. 

DEBITE : ..."JELSE GOTO 2240 

2205 GOSUB 2590 

221B TU»367tG0SUB 10080 

2215 IF OSC'I*>-10 AND TZ=1 THEN PRINT3TU. DE*: :LSI 

2220 IF 0SC(I»)-64 THEN 2E55 

2225 IF I*O"0 M OND I*()"N- THEN 2218 

2238 IF I*-"0" THEN PRINT3TU. "OUI " 1 =LSET 0E»-"OUr 

2235 IF I»="N" THEN PRI NT3TU. "NON" i : LSET DE*-"NON' 

2248 ' DATE 

2245 GOSUB 2605 

2250 TU-4BB:G0SUB 10000 

2255 IF OSC<I*>"10 OND TZ=1 THEN 

2):" / "!RIGHT*(DA*.2)HLSET DO*=DA*iGOTO 2I5B 

2260 IF I*="3" THEN 2655 

2265 IF I»<"0" OR I*) "9" THEN 225B ELSE D*"I* 

227B TU-TU*! 

2275 GOSUB 1000B:IF OSC(I*)-8 THEN PRINT34BS.' 

228B IF I*C0" OH I»)"9" THEN 2275 ELSE D*-D*--I* 

22B5 TU=TU*4 

2290 GOSUB 10000UF OSC(I*)-8 THEN PRINT34B3, ' 

2295 IF I»("0" OR I*)"9- THEN 2290 ELSE D*-D*< 

23BB TU'TU+1 

2305 GOSUB \0B08UF OSC'I»)=E THEN PRINT3408.' 

2310 IF I*("8" OS I*>"9" THEN 23B5 ELSE D»=D*- 

*; 

2313 TU=TU*4 

2320 GOSUB 1BB00UF OSC(I»)-B THEN PRI I.TP488. ' 

2325 IF I*("8" OR I*>"9" THEN 2328 ELSE D*-D»h 

2338 TU«TU*1 

2333 GOSUB 1000BI IF OSC(I»)"'B THEN PRINT340E.". 

2340 IF I*("0" OR I*) "9" THEN 2333 ELSE D»-D**I» 



2345 LSET DA*-D* 

2358 ' MONTONT 

2355 GOSUB 2628 

2360 M*-"" 

23G3 TU-472 

2370 GOSUB 10000 

2373 IF ASC<I*)-10 OND TZ-1 OND TU-472 THEN PRINT3TU.I 

•:GOTO 2430 

2380 IF ASC<I*)»E4 THEN 2653 

23B5 IF ASC(I»)-13 THEN LSET M0«-H**SrRIN0»'8-LEN(M» ) 

2398 IF 0SCn*)-8 THEN IF TU> 472 THEN PRI NT3TU. ". " I I 

LEFT*(M*.LEN<M*)-1) 

2395 IF ASC(I»)-24 THEN PRINT3472," 

2400 IF '!»<>-. " AND I*<)".") AND (I*("0" 

24B5 IF TU!479 THEN 2378 

2410 IF I*""." THEN I*-". 

2413 PRINT3TU. 1*1 ITU-TU*: 

242B IF I*-"," THEN I*-". 

2423 GOTO 2378 

2438 ' LIBELLE— 

2433 GOSUB 2G4B 

2440 L»-"" 

2443 TU-336 

2'.5B 0O5UB 1B808 

2453 IF ABC'I*>-10 AND T7-1 AND TU-536 THEN PI 

» i GOTO 2305 

2460 IF I»-"3" THEN 2653 

24G5 IF ASC<I»)-24 THEN 

"l lOOTO 2430 

247b' IF"' ASC'I»)-0 THEN IF TU) 53G PRINT3TU. ". " ' 

.LEN(L*)-1) 

2473 IF OSC'I«)-13 THEN 2300 

24E0 IF TU>564 THEN 2450 

24B3 IF I*-- " THEN 2493 

2490 IF I*( OR I»)"j" THEN 2450 

2493 PR1NT3TU. 1*1 IL*-L*'I*ITU-TU'HG0T0 2450 
2500 LSET L!»-L**STRIN0»<29~LENtL*>.32> 
2585 '*•* FIN DE LO SAISIE -* • 



:1NG*- IB. 179>; 



r.nrn ,-i-a 



LSET F0»«FO 
:G0T0 2190 



*fDD». 2) :" / "1 


HID*' DO*. 4. 


PRINT3TU. I»! 




I**-/"t 


GOTO 2240 
PRINT3TU. I* 


I*:PRINT3TU. I»t 


GOTO 224 B 


I**"/" 


GOTO 2248 
iRRINTaTU. I 


:i'"RINT3TU. 1*1 


GOTO 2240 


1*1 


GOTO 224B 
PR1NT3TU. I* 



GOTO 2*S« 



l-M**I* ELGE I 



LSET LI*-LI 



L*-LEFT»(L* 



a suivre 



BRUITAGES 



APPLE" 



Devenez le roi des sons avec ce programme genial, qui 
facilite la creation de sons. Ideal pour les amateurs et 
createurs de jeux truffes de bruits bizarres venus d'ail- 
leurs ! Envoyez nous vos bruitages les plus insolites... 

Didier POGLIO 

Mode d'emploi 

Apres la presentation (qui se deroule de la ligne 150 a 490). tes datas 
sont lus flignes 750a 780). Ces datas sont tres importants pour la crea- 
tion des sons II ne faut pas les modifier, sauf si Ton est sur de soi, pour 
les adapter a ces propres besoins. Puis le menu principal apparait 
(Itgnes 790 a 1280). compose de 10 options. 

Options1a9sonsdiversquevousvousamuserezaecouter. Ces bruits 
sont des exemples de ce que peut faire ta 10" option ; creation de sons 
REMARQUE SUR L'OPTION 10 

- La duree des notes n'est pas en secondes 

- Le nombre de notes qui composent le son est limite a 10. 

- La note la plus grave est 0. la plus aigue 254. 

- La duree d'une note grave est plus courte que celled'une noteaigue. 
Apres les recommandations concemant I'option 10. on voit apparaitre 
sur I'ecran la question : NOMBRE DE SONS ? puis ensuite NOM DU 
BRUIT ? Si vous n'avez pas d'idee. tapez simplement RETURN. 



Puis arrivent les questions "NOTE" et "DUREE". Si la note est inlerieure 
a ou superieure a 254, la question est reposee. Attention : ne pas 
repondre RETURN a la question "DUREE". ceci ferait retourner le pro- 
gramme au menu principal. 

Apres I 'introduction de toutes vos notes, la "MELODIE" est jouee. 
Viens ensuite la question : VOULEZ VOUS CREER UN AUTRE SON 
(O/N) ?, si oui. le programme repart au debut de I'option (ligne 3530). 
Pour quitter lemenu principal (done pour arreterle programme) taperO 
a la question concemant le choix de I'option. 
POSSIBILITES DE MODIFICATION 

- Un programme qualifie peut modifier les Datas des lignes 750 a 780 
pour creer des bruits personnalises (par exemple : plus "galactiques", 
plus aigus, plus graves etc.). 

- On peut ajouter vers la ligne 4000, un petit programme de creation, 
puis de lecture de fichiers permettant I'enregistrement et la lecture de 
melodies (voir manuel APPLE : MANUEL DOS. page 55). 

- Les differents bruits preprogrammes (sifflet, helicoptere, alarme. 
sirene, telephone,..) peuvent etre aisement transform es en changeant 
1'intensite ou la duree de une ou plusieurs notes. 

- On peut aussi creer de la musique. Les notes se situent entre 100 et 
200. 

Et maintenant tous a vos claviers pour detroner BEETHOVEN ou Jean 
Michel JARRE 




]■»._< 


REM 


780 








2420 


INVERSE 




32B0 


FDR K - 1 TO 3l PRINT CHR* 


150 


REM — .■ PRESENTATION 










2430 


VTAB 2 








[60 


REM 










2440 


PRINT " 


BRUITS E 


3290 


FOR L - I TO 80: NEXT L 


170 


HOME 


790 


REM 




REM — > Tliilngg 








3300 


FOR M - 1 TO 4: PRINT CHR* 


100 


NORMAL 


BOO 


HOME 




2450 


NORMAL 






(7): NEXT M 


190 
200 


ST* - - POGLIO DIDIER" 
VTAB 4: GOSUB 3B0 


eio 


VTA8 1 


1370 


FOR E - 1 TO SO 


2460 


VTAB 3 




3310 

3320 


FOR N - 1 TO BO: NEXT N 
FOR ■ 1 TO 2: PRINT CHR* 
(7): NEXT 
RETURN 










POKE O.E: POKE l,E * ll CALL. 










5: GOSUB 330 


830 


INVERSE 


13 


888 


24B0 


FOR UI - 1 TO 3 




3330 


220 




840 


VTAB 2 




FOR F - 49 TO STEP - 1 


2490 


POKE 0,23: POKE 


,24: CALL 


334© 


REM 




13: GOSUB 330 


930 


PRINT " BRUITAGES, <C> POQ 


1610 


POKE 0,F: PDKE I,F ♦ li CALL 




BBB 




3330 


REM — > Tk-tlgidi-ti-tidl 




ST* - -■>•«>■>••■■■••-. VTAB 




LIO DIDIER, 1984 






2SOO 


POKE 0, 14: POKE 


, 13: CALL 








19: GOSUB 340 


360 


NORMAL 


1620 


NEXT F 




BBS 




3360 


REM 


240 


ST* . -. .-, VTflfl 


870 


VTAB 3 






2310 


POKE 0,43: POKE 


,46: CALL 




PRINT CHR* (7) 




\t>: GOSUB 330 


880 










888 




3380 


FOR J - I TO 3t PRINT CHR* 


230 


ST* - -• »-. VTAB 






l&SO 


REM — > ALERTE '. 


2320 








<71i NEXT J 




17: GOSUB 330 




FOR UA - 1 TO Si POKE 0,43: POKE iaa. 




2330 


PRINT » PRINT J PRINT 


3390 


FOR K - 1 TO BOl NEXT K 


260 


ST* - -• .-, V7AB 




1.46: CALL SB8: NEXT UA 






2540 


PRINT "VOTRE CHG 




3400 


PRINT CHR* (7) 




IB: GOSUB 340 


90O 


POKE 0.13: POKE l,14l CALL 8 


1680 


VTAB 22: HTAB 13: PRINT "AL 


23 30 


PRINT : PRINT 




3410 


FOR L - 1 TO 160t NEXT L 


270 


ST* - "PRESENTE": VTAB 7: GOSUB 










2360 


PRINT ' <A> Bldtbldii 


3420 


PRINT CHR* (7) 




360 


910 


SPEED- 230 


1690 


FOR G - 1 TO 20 








3430 


FOR M - 1 TO 40: NEXT M 


2BO 


ST* - -UN PROGRAMME DE BRU1TA 


920 


PRINT : PRINT : PRINT 




FOR J p 1 ID SO 


2370 


PRINT " <B> Plui 




3440 


PRINT CHR* (7) 




GES": VTAB lOi GOSUB 360 


930 


PRINT "QUEL 8RUITAGE DESIREZ 


1710 


FOR J - 1 TO 31 POKE 0,10: POKE 258 ' 


PRINT " <C> Tlid 




3430 


RETURN 




ST* - -• SUPER! »-i VTAB 




-VOUS 7 - 




1,11: CALL S8Si NEXT J 


2390 


PRINT " <D> Till 


ngg .. ." 


3460 


REM 




17: GOSUB 360 


940 


PRINT : PRINT 


1720 


FOR K - 1 TO 3 


2600 


PRINT - <E> TI-t 


-tidtti .. 


3470 


REM <<<<((( (()))>))))> 


300 


FOR I - 1 TO 20: NEXT 


930 


PRINT " 1) SIFFLET" 


1730 


POKE 0,50: POKE 1,51: CALL 








34BO 


REM (CREATION DE SONS) 


310 


POKE 47721,96 




PRINT ■ 2) DECOLLAGE HELICO" 






2610 


PRINT " <F> Tl-t 


gldi-ti-tl 


3490 




320 


FOR I - 1 TO ISOO: NEXT I 






1740 


NEXT K 




dl - 




3300 


REM 


330 


HOME : GOTO 360 




PRINT " 3) TELEPHONE * 






2620 


VTAB 3: PRINT " POUR RETOUR 


3510 


HOME 


340 


L - PEEK (371: FOR X - 1 TO ■ 


980 


PRINT " 4) ALERTE • !" 


1760 


NORMAL 




NER AU MENU > 


APER '0"" 


3320 


SPEED- 200 




19 * LEN (ST*I / 2: VTAB L: 


990 


PRINT - 3) ALERTE SOUS-MARIN 


1770 


VTAB 22: PRINT ■ 


2630 


VTAB B: HTAB 13: 


GET A* 


3330 


VTA 




HTAB 40 - X:N - PEEK ! - 1 










2640 


IF A* - "A" THEN 


GOSUB 273 








6336): PRINT LEFT* (ST*,X)I 


iooo 


PRINT " 6> SIRENE POMPIER" 








O 










" "I: NEXT : PRINT j RETURN 


1O10 


PRINT - 7) RAFALE GALACTIOU 


17BO 


RETURN 


2630 


IF A* - "B" THEN 


GOSUB 281 


3340 


INVERSE 








E" 


1790 


REM 









3530 


VTAB 2i PRINT ■ CR 


3S0 


L - PEEK (371: FOR X - 1 TO 
20 - LEN 1ST*) / 2: VTAB Li 


1O20 


PRINT " 8) BRUITS ETRANGE5" 


1810 


REM — > ALERTE SOUS-MARIN 
REM 


2660 


IF A* - "C" THEN 


GOSUB 298 




EAT I ON DES SDNS 




HTAB X:N - PEEK ( - 16336) 


103O 


PRINT " 9) GAME- 


1B20 




2670 


IF A* - -D" THEN 


GOSUB 133 


3360 


NORMAL 




: PRINT " -: RIGHT* (ST»,X * 


1040 


PRINT "10) CREATION DE SONS 


1B30 


VTAB 22: HTAB 11: PRINT "AL 









3370 


VTA 




!>>. NCXT • POINT t RETURN 








ERTE SOUS-MARIN" 


2680 




GOSUB 323 






3*0 


L - PEEK <37>:SP* - -": FOR 


lOSO 


VTAB 5: PRINT ■ POUR ARRETE 




FOR M - 1 TO 20 














X - 1 TO 20 - LEN <ST*> 1 2 




R > TAPER '0'" 


1850 


FOR L - 1 TO 15 
S - PEEK ( - 16336) / 10OOO 


2690 


IF A* - "F" THEN 


GOSUB 333 


3380 


SPEED- 235 




:SR» - SP* * - ": NEXT :ST* - 


1060 


FDR UB - 1 TO 3 


1B60 




O 




3390 


POKE 0,36: POKE 1,37: CALL 




SP* ♦ ST* - SP*: IF LEN (ST 


1070 


POKE 0,36: POKE 1.37: CALL 






27O0 


IF A* - "0" THEN 


GOTO 360 




888 




•) / 2 < > INT ( LEN (ST») 




B88 


1870 


NEXT L 


2710 


GOTO 2630 




3600 


POKE 0,43: POKE 1,46: CALL 




/ 2) THEN ST* - ST* «■ " " 




POKE 0.11: POKE 1,12: CALL 


isao 


POKE 0,230: POKE t,231i CALL 


2720 


REM 






888 




FOP X - 1 TO 20:PR* - LEFT* 




8B8 




BBS 


2730 


REM — > Bidlbld 




3610 


IF S* - "0" THEN GOTO 3760 




(ST*,X> » RIGHT* (5T*,X): VTAB 


1090 




1B90 


NEXT M 


2740 


REM 










L: HTAB 21 - X-.O =■ PEEK ( - 




B88 


1900 


NORMAL 


2730 


FOR IA - I TO 176 


3620 


PRINT i PRINT 1 PRINT 




16336) ♦ PEEK ( - 163361: PRINTIIOO 


NEXT UB 


1910 


VTAB 22: PRINT ■ 


2760 


ZB ■ INT ( RND ( 


) • 20) + 


3630 


PRINT " ■ L4 dur*p da* not* 




PR*: NEXT : RETURN 


1110 


VTAB 8: HTAB 30: INPUT ■ ■ i A 








9 








380 


L - PEEK (37): IF NOT 00 THEN 










2770 


POKE O.Z.B: POKE 


,ZB » I: CALL 




PRINT 




OIM R*(40) .DL(4O);0O - 1 


11*20 


□NERR GOTO 320 


1920 


RETURN 




BBS 




3630 




390 


POKE 216.0: FOR X - TO 39: 


1130 


IF A - THEN INVERSE t FDR 




REM 


27B0 


NEXT ZA 






9 qui composvnt I* «on e*t 




R*(X) - " "lOL(X) •• Oi NEXT 




PQ - 1 TO 24: PRINT ■ 


1940 


REM — t SIRENE POMPIER 


2790 


RETURN 






limit* A 10" 




: FOR X - I TD LEN (ST*):R* 








REM 


2800 


REM 




3660 






(X) - MID* (ST*.X,1): NEXT 




": NEXT PO: SPEED- 10 


I960 




2810 


REM — > Pluitud 




3670 


PRINT " • La not* 14 plu* g 




.- FOR X - TO LEN (ST*) - 


1140 


IF A - THEN VTAB 12: HTAB 


1970 


VTAB 22: HTAB 13: PRINT "SI 


2820 


REM 










1: FOR X - O TO LEN (ST*) - 








RENE POMPIER" 




FOR ZI - 1 TO 30 






u» " 234 ■ " 




1 : DL ( X > - I NT ( ( RND ( 1 ) * 




BBB: PRINT *A" 


1980 


FOR S - 1 TO 13 


2B40 


POKE O.Oi POKE 1 


1: CALL B8 








LI - L>: NEXT 


1130 


IF A - THEN VTAB 12: HTAB 


1990 


POKE 0.234: POKE 1 . 233l CALL 




8 




3690 


PRINT " • La dur*» d'uno no 


4O0 


FOR X - TO LEN <ST*):DL(X 




15: PDKE 0,45: POKE 1,46: CALL 




888 


2830 


POKE 0. 10: POKE 


, 1 1 : CALL 








) - DL(X) • 1; IF DL(XI > L THEN 


99B: PRINT " " : VTAB 12: HTAB 




POKE 0,200: POKE 1.201: CALL 




888 






IO *, tandl* qua call* d'una 




DL(X) - L 




16: PDKE 0,13: POKE 1,14: CALL 




888 


2860 


POKE 0,4: POKE 1 


5: CALL 88 






410 


IF DL(X) - THEN DL<X) - 1 




BBB: PRINT "BI": VTAB 12: HTAB 


2010 


NEXT S 




B 






2 a. " 


420 


IF DL(X) < 1 THEN 460 




IB: POKE 0,34: POKE 1.33: CALL 




NORMAL 


2870 


POKE 0,30: POKE 


,31 1 CALL 


3700 


PRINT : PRINT : PRINT 


430 


HTAB <X * INT <(20 - LEN ( 




BBS: PRINT "EN": VTAB 12: HTAB 


2030 


VTAB 22: PRINT * 




BBB 




3710 


HTAB 20: PRINT "TAPER <RETU 




ST«) / 2>>>I VTAB DL(X): PRINT 




20: PDKE 0.20: PDKE 1,21: CALL 






2BSO 


ZJ - INT < RND 1 


) • 6) * 1 




RN>" 




R*(X): IF DL(X) - 1 THEN 460 




BBB: PRINT "TO" 








3 




3720 


POKE 0,100: PDKE l,10ll CALL 






1 160 


IF A - THEN POKE 0.34: POKE 




RETURN 


2B90 


POKE O.ZJ: PDKE 


,ZJ * 1: CALL 




888 


440 


HTAB (X * INT ((20 - LEN ( 




1,33: CALL BBS: VTAB 12: HTAB 


203O 






888 




3730 


VTAB 3i GET Z* 




ST*) / 2) ) ) i VTAB DLIX) - 1: 




22: PRINT "T "l POKE 0.30: POKE 


2060 


REM — > RAFALE GALACUQUE 




POKE O.ZJ ♦ 3: POKE 1 . ZJ » 


3740 


SPEED- 1B0 




PRINT " " 




1,31: CALL QBB: VTAB 12: HTAB 




REM 




h: CALL 8BB 






FOR HI - 8 TO 22i VTAB HIi PR 


43d 


S - PEEK ( - 16336) - 2 




24: PRINT "!" 


20BO 


FLASH 


2910 


POKE 0,34: POKE 


,33i CALL 






460 


NEXT 


1170 


IF A - THEN NORMAL : FOR 


2090 


VTAB 22: HTAB 11: PRINT "RA 




888 








470 


FOR X - TO LEN 1ST*} - 1: 




ML - 1 TO 33: PRINT : NEXT M 




FALE DALACTIOUE" 


2920 


POKE 0,3: POKE 1 


4: CALL BB 


3760 


SPEED- 233 




IF DL(X> < • L THEN 40O 




L: SPEED- 233: END 


2100 


FOR M - 1 TO 30 




B 




3770 


VTAB 7: INPUT " NOMBRE DE S 


4BO 


S - PEEK ( - 16336) - 2 


I 1BO 


IF A- 1 THEN G0SU8 1300 


2110 


FOR AA - 1 TO 2 


2930 


POKE 0,43: PDKE 


,46: CALL 




ONS 7 "INS 


490 


NEXT : RETURN 


1190 


IF A - 2 THEN GOSUB 1410 


2120 


POKE 0,1: POKE 1,2: CALL SB 




888 




37BO 


IF NS t - THEN GOTO 377 


soo 

310 


GOTO 360 

FOR TV - I TO 5: PRINT CHR* 


1200 
1210 


IF A - 3 THEN GOSUB 3070 
IF A - 4 THEN GOSUB 1630 


2130 


a 

NEXT AA 


2940 




,19: CALL 


3790 





888 


IF NB > 10 THEN GOTO 3770 




17) : NEJCT TY 


1220 


IF A - 3 THEN GOSUB 1B00 


2140 


FOR AB - 1 TO 2 


2930 


NEXT ZI 




3BO0 


VTA8 a 


320 


RE8TOS 


1230 


IF A - 6 THEN GOSUB 1940 


2150 


POKE 0,3: POKE 1,6: CALL 88 


2960 


RETURN 




3810 


INPUT " NOM DU BRUIT - " 1 ND 


530 


FOR TV - 1 TO 5 


1240 


IF A - 7 THEN BOSUB 2060 




B 




REM 






• 




PRINT CHR* 17) 


1230 


IF A - 8 THEN GOSUB 23B0 


2160 


NEXT AB 


29B0 


REM — > Tlldu . 




3B20 






NEXT TV 


1260 


IF A - 9 THEN GOSUB 2220 


2170 


NEXT W 


2990 


REM 




3830 


FOR TS - 1 TO NS 




SPEED- 200 


1270 


IF A - 10 THEN GOSUB 3460 


2180 


NORMAL 


30O0 


FOR ZM - 1 TO 30 




3840 


VTAB 9: PRINT " SON "1ISI" 




NORMAL 


1280 


GOTO I 1 10 


2190 


VTAB 22: PRINT " 


3010 


VTAB 10: PRINT CHR* <7) 




i "t VTAB 9: HTAB 13i INPUT 


380 

•■.-<■> 


TEXT 
HOME 


1290 


REM 








POKE 0,36: POKE 


,361 CALL 




3(TS) 


I3O0 


REM — > SIFFLET 












3B30 


VTAB 10: PRINT " DUREE "ITS 


1310 


REM 


2200 


RETURN 


3030 








1" t "I VTAB lOi HTAB 13i INPU 




p EM — ; TARL.E DE5 FORMES 


1320 




2210 


REM 




880 






DCT81 






1330 


VTAB 22l HTAB 16: PRINT "SI 


2220 


REM — > GAME 


3040 


POKE 0.47: P0> E 


,47i CALL 


3860 


IF S(T8) < O OR S(TS) • 254 


630 


REM ATTENTION 




FFLET" 


2230 


REM 




BBS 






THEN IS - TS - U GOTO 3B60 




REM NE MODIFIER AUCUN DATA 


1 140 


FOR I - 1 TO 60 


2240 


FLASH 


3030 


NEXT ZM 












1350 


POKE 0. lOl POKE 1,10: CALL 


2250 


VTAB 22: HTAB 17: PRINT "GA 




RETURN 




3870 










888 




ME" 


3070 


REM 




3B80 






REM CES DATAS 3ERVENT A 




NEXT I 


2260 


FOR ZE - 250 TO MO STEP - 


3080 


REM — > TELEPHONE 


38 90 


VTAB 22 


'/■V 


HEM LA PRODUCTION DES SONS 


t M'J 


NORMAL 




10 


-,.■>■> 


REM 




S900 


PRINT "ET VGIC! UN DRUIT IN 






13G0 


VTAB 22t PRINT ■ 


2270 


POKE 0.2E: POKE 1 . IE • li CALL 


3100 


VTAB 221 FLASH t 


HTAB 13i PRIN 






TOt 










BUB 




-HII Mil IN! " 




3910 


NORMAL 


FOR < - " CO 1"« 






.".Ti" 


NEXT ZE 


3 1 1 


FOR PW - 1 TO 7 




■■•iv> < 


FOR rS - I I/O N'J 


/-'. 




1390 


RETURN 


2290 


FOR If - 140 10 230 STEP 10 




FOR DF - I TO 12 




3930 


POKfl M.LldLil i POffl l.G(TS) • 






1400 


REM 








I-1JI 1 ". '■•: Pill 1 


• 31 








1410 


REM — > DECfll LAGE HELICO 




i hit: ... n ■. poke i . ir * li CALL 


3140 


CALL BBB 






i ■ \-)\< i iiini 


!~A 


DATA 4. ft. 10,0,63.0. ! 13.0. 14 


1420 


REM 




BBS 


J 130 


NEXT DF 




^950 


NEX I RT 




3, 0,43,49,49, 40» 224, 63, 63,63 


14 30 


FLASH 


.' 1 1 ') 




SI60 


FOR TR - 1 TO 6OO1 NEXT TR 




VTAB I^i H'lNi " C'BTAI 1 v- 




63. 191, 1 4. lot. 1,32,60,39,43 
,63,*3.4f,4S,4S,43,44,36,4», 


1440 


VTAB 22: HTAB 12: PRINT "DE 




MMI-trf.i 




NEXT PW 










COLLAGE HELICO" 


23 -n 


VIAB .'?: PRINT - 


MBO 


NORMAL 






AIMl.NT 1 IINIA^I HJIIL ' ! " 

vtaii 17: print "voui r / voun 

CREER UN AIJTRfc SON IU/N) ?• 




46, 46. 46^34 


1430 


FOR C - 200 TO SO 8TEP - 1 






•. I to 


v .".-! M-rrir " 




"'"" 


/IS 


DATA 43,3 J. 33. 33.33.42,33,6 


1460 


POKE 0,Cl PUKE 1,C • It CALL 


Z340 


RF.TUKN 








wvn 


: VT.IIi 1 /: IIIAH "ll: Ml "•* 

IF 8* - "0" ihln HJCM i BOTfl 

3320 

IF S* - "N" IHIN rue : BOTO 




,44,37,49,43,6,0,36,37,45, 10 




888 




r<F.M 


-....„, 


RETURN 






.•.,100,32.232.31.62,54,39.39 


1470 


NEXT C 






3210 


FtEM 








.39,232.54.22. 174 


1480 


FOR D - 1 IO lOO 


2370 


REM -BRUIIS ETRANGES- 


[220 


REM 






77C 


DATA 14,33,33.30.24,24.24.2 


149U 


TOIK ".C: POKfl l.C ' 1: CALL 


2380 


REM -- — --•-- — ---" 


3230 


RSM - - • Tl -tl-t 


ditl .... 


40 IV 


soro i»so 




4.1-4, 32. 33, 61, 24, 24, B, 6. 37. 3 




B8fl 


2390 


HOME 


*240 








9,45. 72,63, H. 40. 37,44,34,77. 


1 SOO 


NEXT 


2400 


VTAB 1 




FDR 1 - 1 TO 001 


NEXT I 








/;, 34. 83. 9. 54, 37, 0,43.0,0,0, 


131V 


NORMAL 


2410 


PRINT — — — -— 


12ih0 


PRIM1 LIU** (7) 










O 


1320 


VIA8 22: F-RINT " 




......... ......... 


3270 


FOR J - 1 TO BOl 


NEX1 J 







15 



SCRAMBLE 



Enran2020,votrevieilleplanetelaterre.estconvoiteepar 
une race superieure d'andro'ides. Vous le STARMASTER. 
(ou maitre des etoiles) etes la derniere force qui puisse en- 
core vaincre ces formidables machines de guerre... 

Pierre BERGER 



Mode d'emploi du programme 
1) Chargement : 

- Faire NEX (14533+3000) 

- Taper la hgne : 10 FOR l-M TO M+1000:!NPUT A:POKE I.A:NEXT I 
(c'est un programme chargement de codes) 

- Charger les differentes routines (voir listing) dans la memoire du 
PC1500, aux adresses indiquees. 

exemple : Pour charger la routine "SC RELIEF", faire : 
M - 38C5 (adresse de depart) GOTO 10 
&68 ENTER 
&71 ENTER 



PC 1500 



&9E ENTER 
&26 ENTER 



pour charger la routine "DEPLACHASSEUR". faire : 

M-&392F 

GOTO10 



&BE ENTER 

&9A ENTER 

Faire bien attention de charger toutes les routines (15 au total) 

Quand toules les roulines sont chargees. faire 10 ENTER, pour eflacer 

la ligne 10 

- Taper le programme basic 

- Si lors du chargement des codes des routines en language machine 
vous avez fait une faute de frappe, le programme "D" de la ligne lOOl 
(controleur de code) vous permettra de la corriger. 

exemple : Pourverifier les codes de la routine "SC MORI" faire : 

Z=&3980 ENTER 

DEF-D" 

Si le code qui apparait a laffichage est le bon. faire ENTER (et ainsi de 

suite) 

Si ce n'est pas le bon. faire : 

POKE I, "bon code" ENTER ENTER (et ainsi de suite) 

2) le jeu 

Faire RUN ENTER 

Ala question "niveau dejeu'repondreeparun nombrecomprisentre 1 

et 3 (3 : tres difficile) 

Votre vaisseau apparait alors sur la gauche de rafftcheur, (voir dessin) 

Pour descendre appuyer sur Z 

Pourmonter Q 

Pour tirer sur les ennemis (arrivant de la droite) appuyer sur ENTER 

Pour larguer des bombes, appuyer sur . 

Les bombes servant a detruire des reserves de fuel (voir dessin). 

Chaque reservoir detruit redonne 1 point de carburant (voir jauge sur 

dessin). 

Lors du combat trois choses peuvent se produire : 

- Vous n'avez plus de fuel ; votre vaisseau est perdu 

- Les vaisseaux ennemis se sont approches trop pres de vous. vous 
etes ceme. 

- Un missile ennemi vous heurte. vous explosez. 
Dans chaque cas vous perdez une vie. 

Le but du jeu est bien entendu, de tenir le plus de temps possible face 
aux ennemis ! Bonne chance ! 




l:l*OJT B.e-OKZ 17 
■097,»50. O OKE 1 
789E,0:POKE 17 
302, ?■: CCSUB 85 


2:°OKE 17886,6; 
"OKE 17B05. 8- 
B 0KE 17803,8:0 

=e 

3:«*OJT 0:GCl(RSOR 
]4:CPS1NT 127; 
127; 127- CURSOR 
8:°RJNr 6 

4: CCURSOR 33- 
CPRJNT 7F4870 
406048' . 
CCURSOR 78. 
CPRJNT J2? 

5: 0^17058- ^OR 1 = 
t7J01 r O t7M0 
STEP 7- D 0K£ J, 
o£EK 0.0=a-»]: 
BEEP 1.3,3: 
■+EXT _' 

5.°C*£ 17877, 2- 
»OKE 17)88, 2- 
POKE 17182, *. 
°Wt 17)84, *: 
"OKE 17)86, ' 

?. a OK£ 17899, tC8 



POKE 17873, 8: 
POKE 17)58, 1, I 
. l.PQKE 170O3, 



CPR1HT -884868 
6468686960646B 
69696064696B6B 
6040":tCLiPSOR 
102:"PIHJ PZi* 
17002- MME =0 
J0:CURSOP 8:PR1NT 

PEEK £7886 
UiCfiLL 14768 
28: IF PEEK K7886-- 
0THEW 



COIO 10 
!8:GCLIRS0R 127. 
PRINT "fu*l": 
=0R l = ira 18: 
BEEP ),25, 208: 



COLL 
NEX 



16181 



COP J-l TO ! 



NEX 



! 07: POKE 17082, 
PEEK L7882-1: 
!F PEEK 17882^ 
9THEN 5000 

183:U--PEEK 17382:0 
= 96*«J=2>*3)»( 
iJ=l>:CCURSOR ft 
. GPR1NT "68686 
868": CCURSOR 1 
82: "PINT PEEK 
17832 

104: CURSOR 28: 
PRINT - 

-POKE 17886,6: 
CCURSOR 110: 
CPRJNT 8; 8 

106: !F 6=)POKE 171 
00,2. POKE 1710 
2, 4;PQKE 17)84 
, 4:O0K£ 17] 8fi, 
4:G=0:POKE 178 
77,2 

187- GOTO 18 

288: CCURSOR 123: 
PRINT "c«<-ne": 
c OR J = J TO )0: 
BEEP 1, 60, 60: 
BEEP 1, 70, 60: 

coll leiee^DR 

1=IT0 588:NEXT 



201 



PEE 



■ &7)I8< 



>8THEN 200 

72: IF PEEK S7802= 
WHEN 388 

48:COLL 14957. 



C 0R 1=1 TO 50: 
NEXT J: CCURSOR 
)?3:PR1NT ■' 

I: COR ]=*.7188T0 
&7114STEP 2: 

B 0KE 1, BiNEXT 
J; GOTO 187 
I: °0KE S7188, 1- 
POKE 1718?, 2: 
°0KL 17184, 8: 
POKE 87106,4; 
G0SU8 400 



387: POKE 17180, «: 
POKE 87182,8: 
POKE 87104, 1: 
°OKE 87186, 2: 
COSUB 488 

304;PQKE 17180, 5: 
"OKE 87182,6: 
POKE 87184, 8. 
POKE 87106, 2: 
C0SU9 408 

318:P0KE 17002,0: 
POKE 87)88,8: 
°OKE 17102, 0: 
°OKE 17)04, 0: 
POKE 17106, 9: C 
= ) 

311;GCURS0R J 19: 

:FOR 1-1T0 5: 
COLL 16180: 
BEEP 1, 788, 58: 
NEXT J:GCURS0R 
J18:PRJNT ■ 

312:6010 187 

488:F0R ) = )I0 5: 
POKE! 64888, 18 
0:NEXT J: 
RETURN 

950: COLL 178B6:F0R 
J=8T0 155: CALL 
I 4728: NEXT t 

853: BEEP 4: INPUT " 
Niveau dc jfu 
(1-73) ? ";0: 
POKE 16408, (0= 
DtJ5*CO=2>t7* 
<0-3>»S 

954:P0KE 14799, (0= 
3J»7*(O^2)*10* 
<O^I>»J5:CLS ( 
POKE 17804, 

BSSfON ft&OSUB 856, 
857, 858:RETJRN 

956:GCURS0R 22: 

GPRJ' 

6868686860" 

RETURN 
857: CCURSOR 2?: 

GPR1NT "68E 

7876786868' 

RETURN 
859: CiCUPSrjP 22: 



CPS1NT -686878 
7E7E786868": 
PETURN 
18013 "O-FOR l=3t. 
TO 17)88:N 
=P£EK |ltT* 
JUT IH-M6KN 
=N- 1 6*11 
1B82:0*^CHR» <rr*4 
8*7.Un>9}J 
CHR» <N*«f 
*(N'9JJ: 
PRINT ( 



NEXT I 
5880: POP J =810 77 
: CCURSOR I: 
CPRJNT 127: 
CCURSOR 155- 
1:CPRINT 12? 



588): 0=77: Mfl'EHA 
G REUO- 

58J8:F0R 1=170 2: 
CCURSOR ft: 
GPRJNT 8: 
CCURSOR 155- 
0:CPR1N7 8:0 
=0-]:BEEP ), 
28, 28:NEX7 I 

58)5:F0R J=)70 5: 
8»=MJD» <0», 
));C»=nlD» 



5845: 
5846: 

584?: 

5848: 

5849: 

5860: 



PRIN7 "Rtcor 
d:";0;" -;« 
*;■ c-*StR» 
PEEK 17804*- 
>-:G070 5861 
It IF 07L60SU8 
5068:L»=O4:L 
=0 

0»=L*:O i -L: 
RETURN 
IF O>n60SU9 
5060:rt*=ft*:rt 



RETURN 

IF ftJNSOSue 

5068:N»=OJ:N 

=0 

':. --it r:-i -s; 

RETURN 
PRJNT "Hckjvt 



5820:1 



(M, 



-J, I) 



J=)TO 7: 
CCURSOR O: 
CPRJNT 0: 
CCURSOR )5S- 
0:GPRINI 0:O 
=0- J: BEEP I, 
28,28;NExr I 

'J038:GCURSOR 0-«3: 
PRINT 0»: 
CCURSOR 155- 
0-6:PRlNT C* 
:NEXT J: FOR 
I = 1T0 100: 
NEXT I 

5848:a=rinE «1E4: 
UOJT 100 

5842:PR1NT "Score 

5043:ON PEEK 1780 



• : 0= 1 : RE TURN 
506U IF 0O1END 
5062:O=8:P»]NT - 

lui1e*:F0R 1 
= )T0 )8:BEEP 
1, 60, 50: BEEP 

1, 50, 58:NEXT 

i:goto i 

5C RELIEF 
38C5:6B 71 
38C9:25 66 
3BC0:64 64 
3B0|:6E 4F 
3905:68 70 
3809:87 20 
3800:71 40 
3BE1: 76 89 
39E5:58 OE 
38E9:OS 78 
38EO:OE 78 
3BFJ :*8 40 B5 48 
38F5:4£ 80 8B 06 
38F9:05 F9 82 42 
39FD:9E 00 OE 70 
3981 :R8 B5 0F BE 



60 03 
66 7E 
64 64 
99 0C 
05 70 
25 OE 
60 6E 
29 85 
70 87 
86 DF 



3385: E£ 22 05 7B 
3983:09 CD BB 9ft 
390D:24 OE 78 87 
3911:05 78 86 9E 
3915:26 4ft 55 55 

OEPLft. CMftSSEUR 
392F:BE E4 2C B7 
3333:51 09 8E A5 
3937:78 77 B7 80 
393B:83 01 90 OF 
333F:0E 70 77 BE 
3343: 10 B7 50 99 
3947:86 A5 78 ?? 
3946:37 83 89 81 
394F:30 OD OE 78 
3953: ?? 8A B5 88 
395?:4E 88 88 86 
3358:F9 83 84 4? 
335F:9E 80 8ft BS 
3963:89 F9 82 20 
3367:68 78 48 71 
3968:40 88 25 BE 
396F:'4 44 64 4E 
3973:08 99 09 90 

SC. H0R1. 

3988:B5 01 AE 70 

3984:88 BE EE CE 

3388 :oE 78 78 05 

338C:78 89 DF BE 

3338:EE 22 05 70 

3994:78 CO BB 05 

3998:78 88 00 87 

333C:9C 93 10 30 

OEPLO. EHNEftl 

3308:68 71 6ft )2 

390C:25 66 66 2E 

39B0:64 64 64 64 

39B4:6E 4E 99 8C 

39B8:05 71 58 OE 

39BC:?] 4C 68 7) 

39C0:6O 51 75 66 

39C4:2E 64 64 6E 

39C8:54 39 03 OS 

39CC: 70 79 B7 0ft 

3908:08 85 DO OE 

3304:70 79 90 BE 

3308: 3E BB OE 71 

390C:58 OE 71 51 

39E0:OE 71 52 85 

33E4:80 OE 71 53 



39E8: 
39EC; 

33F8; 
39F4: 

39F8: 
39FC: 
3088: 



30i?L 

?AJ3 

30 M 
3Q1S 
3.1 1 C 
3*78 
3024 

3A2C 

?ojt« 

Man 

3038 

3A3C 

301fl 
.304 4 

3MB 

3Q<C 

3MM 
3054 
MM 
3A5C 
MM 
3064 
MM 
MK 
3070 

3A70 
307C 
3088 
3004 

3088 

mac 

3038 
3094 
3098 

309C 
3000 

MM 



OE 78 79 03 

78 33 28 05 

70 90 20 64 

6C FF 89 82 

68 C8 04 OE 

70 99 24 ft£ 
78 9ft 9ft 90 

CHASSEUR 

BE E4 2C B7 

86 88 83 BO 

30 BE B5 0) 

OE 3F 49 85 

03 OE 3F 48 

B5 87 OE 3F 

4F 85 82 OE 

3F 55 85 14 

OE 3F 50 BE 

3F 4B 05 71 

06 OE 71 08 

OE 78 81 BE 

3B C5 BE 3E 

B2 8E 39 08 

B5 88 OE 71 

88 05 78 81 

B7 18 88 IB 

09 OE 78 8) 
BE 39 2F BE 
38 C5 BE 3£ 
B7 6E 39 08 
A5 78 8) OE 
7) 00 3E 1C 
B5 00 OE 71 
00 05 71 88 
B7 07 89 12 
05 78 86 8? 
86 83 81 90 
00 OE 70 86 
85 84 AE 7) 
8B 9A 85 01 
OB 7! 0B OE 

71 0B 8E 33 
C9 B5 84 OE 
'I 8B 8E 40 

10 BE 38 CS 
BE 33 7F BE 
E4 7C B7 0D 
BB 01 90 05 
83 OE 3F 49 
85 09 OE 3T 
40 BS 02 AE 
3F 4F B5 80 
OE 3F 55 B5 



3084 


"- 


ftF 


3fl88 


W 




30SC 


7| 


04 


3AC8 


**ll 


M- 


3AC4 


QF 


71 


30C8 




0T 


3ACC 


60 


m: 


3MW 


7*1 


OS 


3004 


H7 


88 


3003 


4ft 


04 


?A--: 


78 


tm 


30C8 


no 


4? 


3A£4 


•M 


8T 


?Aif 


»K1 


Ml 


30EC 


/V 


4K 


30FB 


FF 


47 


30F4 


F[) 


4 1 


3OF0 


B*> 


m 


MFC 


R? 


(W 


3888 


» 


<h 


3884 


'0 


r 1 " 


3808 


*U1 


M) 


3B8C 


7| 


*>n 


SBII 


78 


tn 


3814 


Aft 


4-' 


3B1P 


•i-i 


M 


3B1C 


■XI 


Bfl 


«e?ti 


7) 


^^ 


3974 


: < 


ftl 


3P29 


OV 


RF 


3B2C 


t-ll 


w 


?S30 


Ml 


Ml 


3B34 


n 


4 7 


?r-33 


•M 


rt* 


383C 


(M 


in- 


3BM 


'iq 


iis 


3P4 4 


W 


OF 


IMS 




08 


3B4C 


HI 


ft* 


BBS! 


*i 


41 


BBM 


tft 


«*> 


7Bl-.it 


PH 


04 


3B5C 


M 


2E 


RM 






3E88 


A^ 


78 


a pi 


A*i 


70 


HSR 


W 


H7 


3E8C 


84 


85 


3E98 


1? 


87 


3E94 


84 


B^ 


■ ^n 


HA 


H7 


3E9C 




8S 


3EO0 


82 


06 


8.0. 






3EB7 


40 


If 


n M 


A? 


t* 


3EB0 


HIS 


*} 


3EB1 


99 


01' 


1NU. 


Ul 


•s n 


3EE4 


KH 


71 


3ELB 


7*1 


Rl) 


it | f 


U4 


61 



3E B2 404 



SYNT. 










HI 




>, 




82 


an 


■'J 




Bfl 




•:■■--. -.- 


3F4C:*S 


01 




84 


- : e : 






r:- ;? 


:--~e.~:. 




67 


62 


-."■ v 






72 f 


3F54:6E 


M 


99 


08 


*774 


?0 


r:- 


FO 08 


?F59:3E 


3F 


:■■■ 


60 


«778 


... 


= .- 


■ .V 


3F5C:6£ 


IE 


33 


•8 


477C 


BB 


FO 


20 64 


3F 68:^0 


62 


:- 


■a 


4 788 


SE 


EM 


93 18 


3F64:93 


IC 


fj 


Ft) 


4284 


-1.-S 


36 


3? 47 


JFQ0140 


FO 


00 


Pi 










3F6C:E6 


Bf 


FO 


■A 


OOR PRESENTATION 


3F70:fO 


TO 


?--. 


B4 


413C 

4148 
4)44 
4148 


M 
5C 

40 
4F 


IB 

4F 

«B 
5C 


48 7* 

se 1 

78 5C 

70 40 


TJR ENKEH1 






414C 


'? 


40 


48 48 


4018:O5 


70 


SE 


00 


4 158 


*B 


«,' 


41 47 


4014:O£ 


70 


se 


87 


4)54 


' : 


:-t 


:-.- ■•« 


4018:87 


88 


81 


an 


4 158 


58 


58 


5C 5C 


481C:B5 


00 


AC 


70 


415C 


5C 


58 


59 58 


4828: 9E 


Bfl 


71 


Nl 


4168 


50 


30 


30 40 


















4828:89 


07 


6« 


04 


4)60 


*f 


52 


33 33 


407C:6E 


4t 


99 


BB 


41QC 


55 


48 


40 49 


4030:90 


FO 


A0 


FO 


4)70 


•?* 


34 


34 40 


4034 :CB 


BS 


fl.' 


at 


4)74 


SC 


4P 




4838: 3F 


<:> 


B5 


rt* 


4)78 


**1 


«a 


34 54 


483C:ftE 


?f 


09 


B9 


4)?C 


4C 


38 


40 30 


4040:84 


A£ 


1 


4f 


4)88 




SB 


44 30 


4044:85 


BB 


AC 


3T 


4)84 


*.' 


5F 


34 54 


4048:55 


05 


IF 


>M 


4 188 


'!i 


48 


5F 40 


404C:3F 


50 


Hi 


w 


41BC 


40 


59 


33 33 


4850:48 


FO 


80 


FO 


4138 


31 


48 


40 40 


4854:20 


BB 


BB 


2E 


4)34 


»fl 


4B 


40 48 


4858:66 


66 


2E 


06 


4)38 


*C 


5C 


SC SC 


4B5C:66 


X 


(>f> 


t* 


419C 


3C 


3C 


34 44 


4060: 2E 


(Sti 


r-f- 


BE 


4]M 


4fl 


4 11 


40 40 


4064:06 


BS 


42 


7X 


4)04 






'« 4E 


4068:64 


84 


7E 


M 


4)08 


4E 


<\ 


41 41 


406C:64 


H 


M 


04 


410C 


*.1 


4: 


40 40 


4870: 7E 


At 


70 


■ 


4 1B8 


40 


IB 


40 40 


4074 : 05 


H 


04 


04 


4184 


'P 


78 


SC 4F 


4878: 2E 


FO 




8£ 


4]Bfl 


3C 


78 


40 48 


4B7C:46 


08 


BE 


39 


4IBC 


78 


:.r 


70 40 


4880: ?F 


ft5 


70 


A3 


41C0 


40 


70 


sc 4r 


4 884:67 


03 


BB 


BS 


4)C4 


3C 


70 


40 40 


4 888:1)0 


OF 


78 




4IC8 


40 


40 


40 40 


488C:Bf 


88 


BE 




4 ICC 






40 60 


4890: C5 


HI 


39 


HH 


4 100 


70 


78 


PZ 7T 


4094:05 


Bfl 


OF 


78 










4890:03 


FO 


20 


05 


UOR REL 


IT 




409C: 70 


<)| 


IB 


00 


7050 


04 


04 


04 06 


4 000:66 


FO 


42 


4C 


7854 


04 


04 


84 06 


4004:80 


93 


n • 


9E 


'050 


04 


87 


04 87 


4008-48 


77 


03 


02 


705C 


04 


87 


04 0? 


40OC:4B 


81 


BS 


08 


70QB 




87 


04 0? 


40B0:Or 


71 


08 




7864 


04 


0? 


04 07 


4004: ?] 


80 


AC 


71 


7B68 


04 


04 


04 87 


40B8:8C 


OC 


71 


et 


'B6C 


04 


86 


04 04 


40BC=4C 


81 


n 


81 


7070 




04 


07 04 


40C0:9O 


85 


01 


At 


7074 


06 


04 


06 01 


40C4.70 


07 


30 


0] 


















UOR 


01 SSI 01 


H.0.7 








7083 


nfl 


Rl 


01 81 


4008- -8 


87 




rr 


'880 


81 


07 


07 87 


40OC:4? 


99 


93 


ro 


709! 


02 


Pi 


04 04 


"Pit t\.*? 


t-l 


89 


90 


'895 


04 


08 


All ftfll 



* 



Suite de la page 13 



Mfl 


F 


n>« 


99fl 


F 


1 N 


WO 


F 


1)« 


-• n 


F 


1 >» 


999 


f 


1 >* 


990 


h 


1 *= 


;.■-; 


IF 


Tl> 


19I<3 


IF 


1I> 


1020 


IF 


n ■ 


103*3 


If- 


n > 


1046 


IF 


ti : 


1«? 


IF 


TI> 


18€B 


IF 


n . 


[078 


IF 


TT v 


I0SO 


PPIMT 


1990 






nee 






1119 






1120 






1138 




S 



2 RMO 0«-LEFT*'"':HOPr;ER " . T 
2 HUD n«=L5FT*'' "SfiUVEP ",T 
1 RUT) Q*=LEFT»'"INSEREF' ".T 

1 Pitlb 0«=LEFT*'-LISTEP "-T 

2 OHO 0»»LEFT«' "NLI5TER 'Ml 
2 put.' Ci«=LEFT«' "EC'ITEP ".T 
>2 Onf, O'i-l.EFTt'-DETP'JIPE ", 
=2 RHO rj*=LEFT*'"PEriPLRCEP". 
= 1 RH[» rj« = LEFT»' "TPOUVEP ". 
-•2 RHTj n»-l.EFT*' ''OPTIONS " , 
■3 ONO 0*'LEFT4'"OUITTEP ", 
-1 ftllp 0»-LEFT»< "COHMPNDE*;" . 
»? HlfO 0*-LEFT«<-ME'10IPE ". 
"I RNO n»«LEFT*' "FlJSirjNNEP". 
"EPPE'JR C€ SVMTRXE" GOTO 9843 



-PPOOPPnrtF.? COB9MJM 



' S'PGM CREEP 

FOP I-I TO 10AR 

IF VI-2 THEN 1239 

PRINT USING "B0B»"jIj GOTO 1249 

PPIIIT TRe'^)"". UIME HiPiJT R«' I :■ GOTO 12W 

PRINT" "''LINE INPUT 00' I > 

IF ft*-: I >-'•/" THEN GOTO *3^9 
1259 FT-1 ll-I 11-1 
1279 NEXT I 
1288 

1239 PRINT PPINT'PPINT "b"fr»r P I *\ r>" ■ GOTO TA 
1300 
1310 
1328 ' 
1330 
1340 r. 
1350 ( 
13C0 I 
1370 t 
1380 f 
1390 t 
1499 : 



THEN GOT? 1319 
THEN GOTO 1«10 
THEN GOTO 2010 
THEN CHT GOTO 215f 
THEN CH=2:G0TO 2150 
THEN GOTO 2090 
) THEN GOTO 4949 
• THEN GOTO 4189 
) THEN GOTO 4299 

> THEN GOTO 4'JO0 

> THEN GOTO 3399 
) THEN GOTO 5TS9 
) THEN GOTO 59P-0 

> THEN GOTO ]M9 



i'PGn ■ 



■WUVEGhPDEP 



1189 
1199 
1290 
1219 
1229 
1239 
1249 



S7PGM CNHPGEP 



1429 
1430 
1440 
1430 
I4£9 



CtS'PRINTTflBXfi 

CLEAR ^999 

GOSOB 5119 

C030B 1939 

INT PRINT FPINT 

P0KES3494 , 9 

INPUT "ItOn DO FlGHIEP-ie* 

IF B0-'V" THEN GOTO 339 

COS".* 1979 

OPEN"I",«-i,B« 

Nt-0 

IF EOF' -I) THEN GOTQ t3«9 

LINE INPum-l ,H«<NL4-1 ) 



CHOPGEMEHT tilt' PPIMT PRINT 



1479 NL=NU*l 

1489 GOTO 1430 

1499 ' 

1399 I-I+NL, 

1319 PRINTPPINT PPINT"FICHIEP C'E "*HLi" LIGNES" 

1329 CL03E»-1 GOTO 339 

1339 ' 

1340 : 

1350 ' S/PGM . FUSI0NNEP 

1350 ■ 

1379 CLS PRINT TAR'Srrtrt FIWIPNUEP ttft" -PRINT 'PRINT 

1309 GOTO 1370 

1390 ' 

1690 

1610 

1629 ' 

1630 

1649 CL?PRINTTflB''6>"*»'»» SRiJ-.TGOT'E > i rr" PRINT-PRINT 

1639 IF [<-l THEN PRINT TRB' I8i"P'.s d- t»«t»- GOTO 339 

1«60 IF N<1 THEN N-I 

1679 IF N>I-I THEN N=I-I 

1680 IF not THEN M=N 
1590 IF HM-J THEN M-I-I 
1799 COSUB 1830 

1719 PRINT PRINTPPINT 

1729 P0KE63494.9 

1739 INPi'T "NOM C-iJ FIGHIEP ",B* 

1749 IF 9*="^" THEN GOTO 339 

1739 GOS'JB 1979 

1769 OPEN"0".#-i.BB 

1770 FOR NL-N TO M 
1789 PRINT0-1 .Rf'HL ) 
1799 NEXT NL 

1890 CLO-5E0-1 FT»9 

1819 N-M GOTO 330 

1829 

1939 

1840 ' 3'PGM RNNEXE FICHIER 

1830 ■ 

I860 PRINT "VOULEZ-VOUS LR MISE EN ROUTE 

TXJ MOGNETOPHONE 'O-^O ?"J 

KJ70 ins-IN^EY* IF SR»- ,,H THEN 1870 

1880 IF SR0'>"O-' RtlP 3R0O-N- THEN 1870 

1990 PRINT3R0 

1900 IF 8n»*"0" THEN MOrORON'GOTO 1?20 

1-*10 IF SRB»"H" THEN PETURN 

1120 PRINT PRINT PRIHT'PREBSeZ < 0Trt«r > PO'.TP OPPFTFR" 

[938 iMB-fNKeYfl IF 8BB»"" THEN 1939 

!?40 IF QW CHftBX 13 i THEN 1939 ELSE GOTO 1930 

1930 I10T0ROFF 

1T6B PETiJPH 

|170 PPIIIT PRINT FOR TP-! 

1999 PffINT"PRB38SZ ' •"*' 

1??9 3R0-INkEY0 IF SR«-"' 



Tn .'-.9 NEXT TP 
■ > OUfltlD V0U3 SFPE7 PPET 
THEN 1990 



2090 IF ■5H0-CMP0' 1 3 1 THEN PETURN EL5E GOTO 1990 

2019 

2920 ' S'-PGM KEEPER 

2039 

2940 PRINT 

2930 IF I'-I THEN PPINT TAB' 19 >"r .* Hf t»vt»" GOTO 330 

28S0 IT N- 1 HP N 1-1 THEN PPINTTRP'41 >rrtnr yr 1* 

P4r»i»»tr»"G0T0 339 

16 



2079 N-N*l PRINT M* -LINE INPUT Pf 

2989 IF BBMV THEN GOTO =i*iO 

2090 FOR >1 TO N STEP -I 

2190 R*< j+n.fWj? 

2119 NEXT J 

2129 WfH>=S8 FT-I 

2130 1=1*1 IF I-I990 THEN PPIMT PRINT -PPIHT"h.if r«r Pl-in-'GOTO 35 
2149 GOTO 2979 

2130 

2169 ' S'PGN LISTER 

2170 

2180 CLS PPINTTHR/8>"*tM LIFTER tttt- PPINT^PPINT 

2190 IF [<•! THEN RRItlTTR8''10>"P'» d» t«xt«"'GOTO 339 

2209 INPUT -tERMIMflL OU iHPPINflNTE CT^I) ":<WW 

2219 IF SA*'>"T" PND SHfO"I* THEN GOTO 2130 

2220 IF Sfl*="T" THEN VS-32- VT-0- VU-PS-01-S1 '02-S2^CLS GOTO ?2<*0 

2239 IF Sft*»="I" THEN V3'99 VTb-2.VTJ«MD'01-P1 -0?*P2 

2240 PRINT PRINT PRINT "IMPPIMRNTE CONNECTEE ( O'N > 7 -j 

2259 SM-INKEY0IF Sfi»<>"0" ftnp SfHO'tl' THEN GOTO 2239 

2260 IF S9*""N" THEN GOTO 2910 

2279 CLS PRINT ■ PPIMT 'PPINTTflBISVMHPrMslon •" 0001*0..." 

2289 PPINT PPINT -PRIHTTPfif 7)"IJH UrSTflNT , S.V.P. '" 

2299 IF N(] THEN N«l 

2300 IF N>r I-l ) THEN N-I-l 
2310 IF M<N THEN M-N 

2329 IF MX I-l > THEN M*I-1 
2339 ' 

2349 FOR J=N TO M 

2339 E20«'"'E30--" 

2369 Ft*«---F20---.F30--- 

2379 TI»INSTP<H«< J),T*> 

2380 IF Tl«9 THEN E 1 0»P.*< J > GOTO 2430 
2390 El*»MIO«(Fr»< J),1,T1-1) 

2400 T2-INSTR<T1*1.P*I< J>,T0) 

2410 IF T2-0 THEN E2«»MID0<n«'J>.Tl*l ,LEH<R«< J>5-T1> GOTO 2430 

2429 E20=MIO*r.P*»C J>,T1*1 .T2-<T1 + 1>) 
24?9 E3*^MIP»''R»< J>,T2*1,LEN(R0<J>)-T2) 
2440 - 

2430 ' 

2469 IF CH-2 THEN PRIMTtVT.nSING"000B"i Ji 

2479 IF 1N-2 THEN PRIHT0VT 

2400 PRINT0VT.TP*3(MGl"-i '2I«>1 

2490 IF P03<VT)*rVU THEN PRIHT0VT. STRING*" VS-VU>*HG.32)i 

2300 FOP P0=1 TO LEN<E1«) 

2310 F1»-F1»*MI0«<E1*.P0.1) 

2320 IF 71-1 RNO <POS< VT >*LEN(F1*)>-W.I THEN 
PRINT0VT.F1**STRIMG*<'VS-VU>**1G.32) I 
F10----ZI-Z G0SU6 2799 

2330 IF 21-2 OHO LEN< Fl* J-VU-HG THEN PRINTtVT. 
Fl«*STRING0'fVS-VU>*t1G.32>>-FI0-" 

i.ii'-ir- .vr-ll 

2340 NEXT PO 

2339 PPIHT0VT.F10; 'F10-"" 

2369 IF E2«-"" THEN GOTO 2669 

2370 PRINT0VT.TOB'-MG*O1>""1 -ZI-1 

2399 IF POS<VT>-VU THEN PPINT0VT. STRINGS 'VS-Vtl ""10. 32>i 

2390 GOTO 3340 

2600 FOR RO-l TO t.EN<E?«> 

2610 F2*-F2«*MIC>0<E20.PO,n _ _ 



a suivre 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule. pourtant nous es- 
sayons de taire quetque chose 
de different : nous organisons 
un concours permanent tons 
les mois et tous les trimestres I 
Etavec des prix dignesdes pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
euK-mtmes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL ninter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialities vous dira comment 
I'ametiorer pour pouvoir nous le 
proposer a nouveau. 



Pour particlper, il vous suftit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que loutes les ex- 
plications necessaires a I'utill- 
sation de ce programme. 
Sonne chance! 



Reglement 

ART 1 HEBDOGICIEL organise 

de lacon mensuelie et tnmes- 
tnelle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du t rimes t re 
ART 2 Ce concours est ouvert a 
tout auteur de logiciel quelque 
SOit le materiel sur lequel it est 
realise L'envoi d'un logiciel en 
K 7 ou disquette accompagne 
dun bon de participation de* 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mancle par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
quahte et de longinalite les logi- 
ciels qui sonl publics dans le 
journal 

ART 4 Ce sont les lecleurs qui, 
par leur vote, determined les 
meilleurs logiciels mensuel et 
tnmestriel 

ART. 5 Le prix alloue pour le 
concours mensuel seraremisau 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART 6 Le prix alloue pour le 
concours tnmestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours tnmestriel 
ART 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre, 1 , rue des Halles 75001 Pans. 
ART 8 HEBDOGICIEL se reser- 



ve le droit dinlerrompre a toul 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART. 9: La participation au con- 
cours entraine lacceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL : 27, rue du Gal 

FOY - 75008 PARIS 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordjnateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn : 

Prenom : 

Age : Profession 

Adresse : 

N telephone : 

Nom du programme ; 

Nom du materiel utilise 

declare etre i'auleur de ce programme qui n'est n\ une tmitation m une 
copie dun programme existant Ce programme reste ma propnete et 
j'autonse HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n 'occupant pas 
une page entiere sera remunere au prorata de la surface occupc-e) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetiqoe (cassette ou 
disquette) accompagne d'un desc np til detaffle du matene l utilise. 
d'une notice d'utilisation du prog ramme Les supports des program- 
mes publies sont conserve s, n'oubliez done pasd'en f aire uoe copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHArTENT FAIRE 
PUBLIER UN PROGRAMME : 

# Envoyez vos supports, mode 
d'empioi. listings et bon de parti- 
cipation dans une meme enve- 
lope*. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en lindiquant sur votre 
Bon de Participation 

• N'oubliez pas et ceci est tres 
important, d'insenre sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de voire programme, sous forme 
de REM. votre nom. le nom du pro- 
gramme et le matenelauquel il est 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'tmpnmante. 

• Dupliquez plusieurs fois sur la 
cassette et a des mveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arh vera le charger si les 
magnetophones ne sont pas tout 
a fait compatibles 

• En cequiconcerneles bonsde 
participation, mettez votre adres- 
se complete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi lei que "petites 
annonces". "abonnement" el 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 
ner. 



Ne nous envoyez plus d'envelop- 
pes timbrees. mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particularites de 
voire ordinateur et le moyen 
d'adapter votre programme a 
d'aulres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORVTHMES, 
MASTERMIND. PENDU. TOUR DE 
HANOI, CALENDRIER. 8ATAILLE 
NAVALE. POKER. JACKPOT, 
BOWLING, BLACK JACK. LABY- 
RINTHE. MEMORY SIMON, 421. 
OTHELLO, SOLITAIRE. LOTO. 



LA REGIE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CNACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DDI OFFRE CINO CASSETTES 
DATA OR VTERGES AU MEM.- 
LEUR PROGRAMME DE CHA- 
QUE CATEGORIE. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR UE 
MEILLEUR LOGtClEL DU MOIS 
FX 702 P ET POUR LE MEtULEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE-POUR 
LE MEILLEUR PROGRAMME 
CANON. 



Us editions du CAGIRE off rent 
au meilleur logiciel du mois sur 
HP 41, leur livre "ou tour de la bou- 
de" de Janlck TAILLANDIER. 





N°29 


N*30 


N°31 


N°32 


APPLE II 


HC1 


COURBES 


AGENDA 

INFORMATIQUE 


DEVIS 


CASIO FX 702-P 


TORPILLE 


CROISADE 


CONTREE MAGIQUE 


BOMBER 


COMMODORE 64 


BUDGET FAMILIAL (2) 


BALLONS FOUS 


NIBBLER 


CHAMP 0E MINES 


COMMODORE 
VIC 20 


COMBINAISONS 


INDIENS 


ASTRO 


BAGNARD 


SPECTRUM 


LASER ATTACK 


CARACTERES 


VITAMINES 


DEDALE 


HP 41 


CALCUL 


CHATEAU DES 
SORTILEGES 


CHARS 


MISSILE 


MPFII 


SOLITAIRE 


MEMO 


RACING 


FUTE 


ORIC1 


GLOUTORIC 


POURSUITE 


BRAIN 


PROBLEMEDU 
CHARPENTIER 


PC 1211 


COMBAT DE CHARS 


TV SAT 


SOUS-MARIN 


COFFRE-FORT 


PC 1500 


DIVISION 

EUCLIDIENNE 


SCRABBLE (1) 


SCRABBLE (2) 


MONKEY-KONG 


CANON X-07 


PAYE 


STAR-WAR 


MEMORY 


LABYR 


HZ 80 


SPACE-INVADERS 


TRANSCODAGE 


COURSE 
AUTOMOBILE 


SCRABBLE 


ZX81 


CAMBRIOLAGE 


MINES 


SOLITAIRE 


YETI ATTAOUE 


TRS80 


PAYS ET CAPITALES 


EMPRUNT 


TIERCE 


THANSAT 


T199/4A 
(basic simple) 


BOMBER 


BASES 


MEMORY 


CITE MAUDITE 


Tl 99/A A 
(bsslc etendu) 


AWALE 


RAID 


SAUVETAGE 


STAR 
FIGHTERS 


T07 


PUISSANCE 4 


ANNUAIRE 


POKER 


ISOLA 



AUX URNES ! 



DATE. LIMITE D'EN- 
VOI DES BULLETINS 
DE VOTE : JEUDI 31 
MAI MINUIT. 



Abandonnez quelques instants vos claviers et prenez vo- 
tre plus belle plume pour remplir le bulletin devote ci-con- 
tre. La redaction d'Hebdogiciel compte sur vous ! 
La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme pour le- 
quel vous voulez voter ainsi que eelui pour lequel vous vo- 
tez en second (le second nous permettra de rendre plus 
equitable la formule de choix du gagnant). 

- Reportezle nom de ces deux programmessurlebuHetin 
devote. 

- Inscrivez vos nom et adresse sur le bulletin de vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MENSUEL, 
27. ruedu General Foy. 75008 PARIS,avanttejeudi31MaJa 
minuit. 

II est fort probable que ceux qui participent au concours 
feront voter leur papa, leur maman, leur cousineet la tota- 
lite de leurs amis et relations pour leur programme. Nor- 
mal ! Mais comme chacun d'eux fera la meme chose, cela 
n'est pas bien grave ! Toutefois. toujours dans un soud 
d'equite. nous n'accepterons que les OR1GINAUX du 
BULLETIN de VOTE ; pas de photocopies, cela serait trop 
facile ! 



BULLETIN DE VOTE 



A renvoyer avant le 31 Mai minuit a HEBDOGICIEL, 
concours mensuel. 27, rue du General Foy. 75008 RARIS 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

NOM ET PRENOM: 

ADRESSE : 



CONCENTRATION COMMODORE 64 



Ce programme se joue a 2 ou a 1 contre I'ordinateur ou 
bien I'ordinateur contre lui-meme. 
Surrecrans'affiche20casesnumeroteesde1a20. 11 s'agit 
de choisir 2 cases (I'une apres I'autre) et sous ces cases, il 
y a suivant le niveau soit des lettres, soit des caracteres 
graphiques ou des chiffres. !l faut retrouver les paires. Si 
vous en trouvez une. vous marquez 1 point et rejouez. 
Sinon les cases s'affichent a nouveau. Bien sur, il faut se 
rappeler les caracteres sous les cases. La premiere case a 
chaque tour de I'ordinateur est choisiedefaconaleatoire. 

Andre MALEYRAN 

Mode d'emploi : 

L'ordinateur vous donne la marche a suivre. Ensuite il vous demande 

votre choix : 

1) Paires de lettres 

2) Paires de caracteres graphiques 

3) Patres de cfiift-es. 

Apres il demande le nom des 2 joueurs. 

Pour jouer contre I'ordinateur rentrez (JE) pour I'un des deux joueurs. 

Pour le faire jouer contre lui-meme rentrez (JE) pour les deux joueurs. 



160 DIM V»<2S>.XS<48>*S«4e>.Ltt20>-B»<2l>,C<20) 
178 POKE 54*- 1 

180 .-. : M 3779 

!.-■.- f.:."E 53250.0 p;:--tv-^si ■■; PQKE646,] 

280 VJ',l.'="4" FOR R-2T02S v»'.mv=V»CH-1 >♦"«■' KEXT A 

;U' .■:»■:.= ■■ iJU; = " - F0RA=2T048 X*<A>=X*<A-i;p+"ll".< 

228 SCUJ»0 scc2)-e:co-ie 

230 POKE 546,1 

240 ; 1- I-1TO20 C<I)»] GOSUS438e:NEXT I 

250 IF ;*- 1,="JE"THEN W=l GOSUB 3428 GOTO 45* 

260 PRINT VJ<24j, Jf.l.'." JOUE" 

270 C(l>"0-C<2>>8 

230 IF CG=9 THEN 668 

290 FOR 1= 1 TO 2 

380 P0KE646.7 

310 PRINT Vf<24>«J*CI?;" JOUE". "CVSCtl ). *)" 

320 PRINT ¥»<24>;X*<25>;S«<13) 

338 PRINT V*i24j,>;*'.25J.I*" CASE", INPUTC<I) 

3413 IF C<U>20 THEN 330 

358 w<cci>J-L*tca>> 

368 IF C<2>"C<1) THEN 338 

378 IF \_%'Xil >>="■• THEN GOSUB 3630 00T0 330 

380 GOSUB 4530 

398 NEXT I 

400 FOR F=S TO 200Q -NEXT F 

410 IF L*<e<l>>-L«C<2» THEN sca>-sca >+j 

428 IF L*<Ctl>>=t*CC<2» THEN LKC<l»>*":L0<C(2»B nl 

430 1 = 1 GOSUB «2*& 1=2 GOSUB 4238 

448 PRINT V»<24>;S*<38> 

453 IF JS<2>="JE" THEN W=2 GOSUB 3429 GOTO 259 

460 IF CO=0 THEN 669 

470 CCI.08 C<2)=9 

439 FOR 1= 1 TO 2 

498 POKE 646,7 

580 PRINT V*<24>;J*<2);" J0UE";"<";8C<2J;">" 

510 PRINT V*<24>;X*<23>;S*U3> 

520 PRINT Vf(24);X*(25^;I;" CASE". INPUTC(I> 

538 IF C<I»28 THEH 520 

340 sc<ca»"L*<cci» 

553 IF C<2>-C<U THEN 528 

568 IF L»<C(I»»"" THEN 008US 3630'GOTO 529 

578 OOSUB 4530 

5S8 NEXT 1 

599 FOR F=8 TO 2080: NEXT F 

680 IF L*CC<I>)»L»CCt2;J THEN SC<2/=SC.2;+1 

618 IF L»<C<1>>-L*<C<2>3 THEN L«<Ctl»-"" :L#(C(2»«" 

£28 1=1 GOSUB 4289 1=2 GOSUB 4289 

630 PRINT V*(24.i;S*C30> 

640 IF J*«l j=" JE- THEN 258 

650 GOTO 260 

660 IF BC<l»SC<23 THEN 780 

670 IF Sca>«SC<2) THEN 690 

689 PRIHT"3T;Jt<2>." GP.ONE PRP "WJ.Zt ," A ",SCtl;-Gi 

698 PRINT 'TM BRAVO. IL V fl EGflLITE ONE AUTRE PARTIE 

788 FPInT "^B",JS'l'," GAGHE PAR ";SC<1>;" H ";SCC2^ 

710 PRINT "X DM RECOMMENCE ''' , 

728 GET fit IF R*O - 0" AND R*0"N" THEN 720 

739 IF PJ="0" THEN PRINT ".T RUN 

740 PRINT ■i%'.\2i,V.%'.\%>,-3 FiU RE'/OIR" 
758 END 

760 PEM«»***********#«***#***********#* 

779 REM EFFACEMENT DES CRSE5 

7S0 REn**#*******.**#****»*#****«****** 

790 REM 1EPE CflSE 

909 FOP Z=2 TO 5 

818 PPIMT •i%'-Z,,V.%'.A >;3*<6) 

820 NEXT Z 

830 PRINT Vf<37iX*<e>iL»tl) 

340 RETURN 

858 REM 2EME CR8E 

860 FOP 2=2 TO 5 

370 PRINT Y*<Z);X*<11>;SS<6) 

938 NEXT Z 

390 PRINT Y*<3);X*U3>;Lf<2) 

908 RETURN 

918 REM 3EME CASE 

920 FOR Z*2 TO 5 

930 PRINT Y*(Z>,X#U8)i8*<6> 

940 NEXT Z 

958 PRINT V*<3>;X*<28>;L#<33 

969 RETURN 

979 PEM 4EME CflSE 

9S0 fop 2=2 ro 3 

990 PRINT vj'Z-.;:r 2V. -:»'£■ 

1808 NEXT Z 

1818 PRINT Y*<:3>;X*C27>iL*<4) 

1820 RETURN 

1839 REM 5EME CftSE 

1040 FOP 2=2 TO 5 

1050 PRINT V»<Z>;X»<32>;Sr<6J 

i960 next i 

1979 PRINT V*'3'.;'i f i4.-,ui'5/ 

1080 RETURN 

1998 REM 6EHE CflSE 

1100 FOP 2=7 TO 10 

1110 PRINT V*<Z);X»<4J;M(6) 

1120 NEXT Z 

I130 FRINI vt'-' X*<6 i.L#<6) 

1149 RETURN 

1159 REM 7EME CASE 

1160 FOR Z'7 TO 10 

1170 print y*<z>;xi<ii>;s»«) 

1138 MEXT Z 

1190 PRINT V*t8>;X*(13J;L*<7> 

1200 PETUPH 

1210 REM BENE CASE 

1220 FOR Z»7 TO 10 

1238 PRINT Y*<Z.-,X*'.13>.S*C6J 

1249 NEXT Z 

1250 PRINT W(0>;W<20>;L»<8) 
1260 RETURN 
1278 PEM 9EI1E CASE 
1260 FOR Z"? TO 18 




:CQ=CG~1-GOTO 260 



CO=CO-1 GOTO 469 



1230 PRINT V*<Z>;X*(25>;S»(6) 

1308 NEXT Z 
1310 PRINT V*'9^.X*'.27>,L»<3J 

1329 RETURN 

1330 PEM 18EME CFriE 
1348 FOR Z=7 TO 18 
1350 PRINT Y*(.Z.',X*':32),S«r6> 
1369 NEXT Z 
1379 PRINT V*C3>;X«<34>;L*<10) 

1309 RETURN 
1399 PEM HEME CftSE 
1490 FOR Z-12 TO 15 

1419 PRINT Vf(2J;X*<4>JS#C6) 

1420 NEXT Z 
1430 PRINT V«C13J;X*<6>;L«<n) 

1449 RETURN 

1450 PEM 12EME CflSE 
1460 FOR Z=12 TO 15 

1479 print V*<Z);X*ap;S«6} 

1480 NEXT Z 

1499 PRINT V»C13>;X*<13>;U»<12) 

1500 RETURN 
1510 PEff 13EME CPi3E 
1520 FOR Z=12 TO 13 

1530 print yt<2>;x*cie);sf<6) 

1540 NEXT Z 

1350 PRINT V»<13);x*(20>;L*C13) 

1560 RETURN 

1579 PEM 14EHE CASE 

1530 FOP Z"12 TO 15 

1599 PRINT V*<Z);Xf<23>;3*<6) 

1690 NEXT Z 

1610 PRINT V*<I3>JX«<27);L*(14) 

1620 PETUPN 

1639 PEM 15EME CftSE 

1640 FOR 2=12 TO 13 
1650 PRINT V*<Zj,X*'.32>,S»<6> 
1660 NEXT Z 

1678 PRINT V*(13>.X*'34>,L*'I5j 
1630 RETURN 
1690 REM 16EME CP.3E 
1700 FOR Z-i? TO 20 
1710 PRINT Y*«;Zj;X<<4),S«<6) 
1728 NEXT Z 

1738 PRINT W<10);X«6>ilJ(16) 
1740 RETURN 
1750 PEM 17EME CR3E 
1760 FOR Z-17 TO 20 
1770 PRIKT V*(Z>,X»<tl>;S«<6> 



1739 
1790 

1800 
1310 
1020 
1830 
1B4B 
1850 
1368 
1878 
1 388 



1920 

1930 
1940 
1 950 
I960 
1378 



2090 
2910 
2020 

2030 
2049 
2050 
2068 
2070 



2110 
2129 
2130 
2140 

2158 
2169 



2190 
2280 
2210 
2229 

2230 
2240 
2259 
2269 
2270 
2280 
2230 
230* 
2310 
2320 
2330 
2349 
2/50 
2368 
2i79 
2338 
2390 
2409 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2430 
2430 
2500 
2510 
2520 
2530 
2540 
2550 
2568 
2570 
2588 
1590 

2610 
2628 
2639 
2640 
2659 
2668 
2678 
2650 
2639 
2700 
273 8 
2720 
2738 
2749 
2750 
2760 
2779 
2 789 
2739 
2808 
2818 
2329 
2838 
2349 



2878 
2980 
2398 
2900 
2919 
2320 
2930 
2949 
2930 
2960 
2970 
2980 
2390 
3009 
3910 
3020 
?0;O 
3040 

3958 

3968 
3070 

3980 



3110 
3120 
3130 
3148 
3130 
3160 
3179 
3189 
3130 
3299 
3218 
3220 
3239 
3240 
3250 
3260 
3279 
3280 



NEXT Z 

PRINT V!<13.'./ia:-<.LI' I?) 

RETURN 

REM 10EHE CR8E 

FOR Z=17 TO 20 

PRINT vI''Z>.X*(18j.SI<6' 

NEXT Z 

PRINT Y»'. 19J,XJ(20/.L*' 13/ 

PETUPN 

FEM 19EME CflSE 

FOR Z-17 TO 20 

PRINT Y*(Z>;X*<25);S*C6) 

NEXT Z 

PRINT Y»U8>;X*<27>;L*U9) 

RETURN 

REN 28EME CflSE 

FOR Z«I7 TO 20 

PRINT V*CZ);X*<32>;SS<6> 

NEXT Z 

PRINT V*f 18),X*(.34i,l_*'28J 

PETUPN 

REM***<*««** **••**<**•**•• ***•••** 

REM BFFICHRGE DES CASES 

REH»»*»i»»**f ***••**»#****••*♦♦#♦*• 

REM 1ERE CASE 

POKE 646,3 

FOR Z=Z TO 5 

PRINT V*tZJ;X*<4),"a §" 

NEXT Z 

PRINT YfC3)-X*C6.^-"319 , ' 

RETURN 

REM 2EME CflSE 

POKE 646,5 

FOR Z=2 TO 5 

PRINT v*<Z);X*<ll>;"a ■" 

NEXT Z 

print v*C3>;x*(i3);*ffi=r 

RETURN 

FEM SEME CASE 

POKE 646.3 

FOR Z«-2 TO 5 

PRINT Y*CZ);X«18>.' , a ■" 

NEXT Z 

PRINT Y*(3>,X*C20J,"a39" 

RETURN 

REM 4EME CASE 

POKE 646-5 

FOR 2=2 TO 5 

PRINT V*CZ>;X*^25J,' , 3 ■"' 

NEXT Z 

PRINT VJ'.3>,XS<27>, "S»B" 

RETURN 

REM SEME CfiSE 

PO^E 646,3 

FOR Z=2 TO 5 

PRINT V$(Z>.-X*(32). ,, a 1" 

NEXT Z 

PRINT V*<3>.XS<34,>, ":©■" 

RETURN 

REM 6EME CASE 

POKE 646.5 

FOR Z=7 TO 10 

PRINT ?t(Z>;X«<4);"a 1" 

NEXT Z 

PRINT Y*<3j;X$<6.',"a6H" 

RETURN 

PEM 7EME CflSE 

POKE 646,3 

FOR Z=7 TO 10 

print v»<z>;x«ii>;"S i" 

NEXT Z 

PRINT V»<8>;X»<13)» ,, a.''a" 

RETURN 

PEM SEME CASE 

POKE 646,5 

FOR 2=7 TO 10 

PRINT Y*<Z>;X*<18>;"* ■■' 

NEXT 2 

PRINT YJC3;;X*C2e>,"33"'' 

RETURN 

PEM 3EME CflSE 

POKE 646,3 

FOR Z=7 TO 18 

PRINT Y*<Z/;X*<25>.-"a 1" 

NEXT Z 

PRINT Y»<3);X*(27J,"a9a" 

RETURN 

REM 10EME CftSE 

POKE 646.5 

FOR 2=7 TO 19 

PRINT V*<Z).X*<3Z>;"S «" 

NEXT Z 

PRINT Y*C8>,X*(34J."al9■' , 

RETURN 

PEM HEME CflSE 

POKE 646,3 

FOR Z=12 TO 15 

PRINT YJfZ),XJ(4>, ,- a ■" 

NEXT Z 

PRINT Y*<13.>;X*<6.'- ,, ailB" 

RETURN 

PEM 12EME CflSE 

POKE 646.5 

FOR Z-12 TO 13 

PRINT V*CZ>,X«<ll/: ,, a •" 

NEXT Z 

print Y*a3;;x«U3j;"ai2B" 

PETUPN 

REM 13EME CASE 

POKE 646,3 

FOR 2=12 TO 15 

PRINT V*<Z>;X*<18>J"fl 1" 

NEXT Z 

PRINT Y*(13.'.X*<20), , 'ai3a" 

RETURN 

PEM 14EME CftSE 

POKE 646,5 

FOR Z=12 TO 15 

PRINT Y»':ZJ.Xi<25>, , 'a S" 

NEXT Z 

PRINT Y*'13),X$(27J, , '3l4r 

RETURN 

REM 13EME CASE 

POKE 646-3 

FOR 2=12 TO 15 

PRINT Wt'Zi,y.tCi2),"A ■" 

NEXT Z 

PRINT V»<13>;X$(34);"ai31" 

RETURN 

REM 16EME CflSE 

POKE 646.5 

FOR Zfl7 TO 20 

PRINT V*<Z)-X*<4>."a ■" 

NEXT Z 

PRINT Y*<18J,X«(6>,-ai6r' 

RETURN 

PEM 17EME CASE 

POKE 646,3 

FOR Z-17 TO 20 

PRINT Yf(ZJ;X»<llj;"« I" 

NEXT Z 

PRINT V*<18)JX«(13>i*-U7r 

PETURN 

REM 13EME CASE 

POKE 646.5 

FOR Z-17 TO 28 

PRINT Yt(Z).X»(18J."a ■" 

NEXT Z 

PRINT Y*<]8),XI'.20>."ai8»- 

PETURN 

REM 19EME CRSE 



■flUsr 



3800 PRINT ' 
3810 PRINT ' 
3320 PRINT ' 
3838 PRINT ' 
3340 PRINT ' 
3S59 PRINT ' 



■:0OT0 4040 

'GOTO 4040 

GOTO 4040 



■ ■ . .. ." ;.■ 

■'-.■ FOR 2=17 TO 20 
3310 PRINT Y*<- ■ f ■ . r 
3320 MEXT Z 

?;}0 PR1H1 -I ! : t 

;;jo RETURN 
3550 REM 28EME CASE 
?:60 POKE S46,3 
3370 FOP 2=17 TO 20 

3339 PRINT vi<2.' I -- ■ u ■- 

: ■ -, he t :: 

;j0.< PRINT .'j. lr .. ; 4 ■ :l _.m 
J418 RETUPri 

J420 CEM**********«****«**4****t. **.... 

I'-iMi REM L'ORDINflTEOR H - 

■440 REM***** •••••«*•*•••**•••* *•*•«*•• 

3450 FOP 1=1 TO 2 

3460 POKE 646.5 

3470 PRINT Y*<24),X*<24), ii \6l 

3480 PRINT Vff24....i*'.U.." JOUE" . '■ - -SC' U> . " •' 

?490 print VJ':24.,>:i'25.'.I."-CflSC" 

jsee if co=e then 669 

J318 C<I)*IHT<RND<1>«20+1) DS<C<I>>"LS<( I 

_-510 IF CU>=C<2> THEN 3510 

3550 PRINT Yf(24^.X*-,33;,Caj 

3549 IF L»tC<I»a"" THD) 3510 

3559 OOSUB 4539 IF 1=2 THEN 3610 

3568 FOP M=l TO 20 

K70 if K»CC1 i THEN 3598 

3588 IF D*'H.-=L*'.C< 1>>THEMI=2 C<2J=M GOSUB 4530 GOTO 3628 

3599 NEXT M 

3609 NEXT I 

3610 FOP H=0 TO 3000 NEXT H 

3620 IF LS<C<1»«L*<C<2»THEH SCCHJ*SC<y>*l 

3638 IF L*<C(l)>*Lf<C(2>) THEN L*<C<1»»" L*<C<2 - 

COaCO-i:00T0 3440 

3640 l=i:GOSUB 4280 I=2G03UB 4280 

3658 FPINT Y*(24JiS*<38> 

3660 POKE 646.7 

3679 PETURN 

3680 REM»«»*»»»»»«*t**«t***********»*«* 
3630 REM CASE L'EJA JOUEE 

3700 REM*»»*«********#t»*»*»*«*»<«»»«» 

3718 POKE 646,3 

3720 PRINT Y»<22)," IMPOSSIBLE CRSE LEJR JOUEE" 

3730 FOR Z=0 TO 2800 : NEXT Z 

3743 PRINT Y*C22>.SJ(38J 

3750 RETURN 

3760 REM****************************** 

3778 REM PRESENTATION 

3789 REM»**«t*****»«*4«*****#»*t»*»**» 

3798 PRINT "H" 

~X ON DOIT DECOUVRIR CES PAIRES IiE LETTRES-. 
■•;«DU LE CARftCTERES QRflPHlQUES OU DE " 
■JCHIFTRES SUIVANT LE NIVEAU CH0IS1." 
"U.0R30UE L'ON TROUVE UNE PA I RE ON ORONE 1". 
"IFOINT ET ON REJOUE." 
"IEINON, C'EST AU JOUEUR SUIVANT." 

3868 PRINT "M APPUYER SUR UNE TOUCHE " 

3379 GET RJ IF R*^ 1 " THEN 3878 

3880 REM******* ******♦#*<**»••»•«***•• 

3S98 REM CHOIX DU NIVEAU 

3988 REM************* ♦****•»♦♦•*♦*»♦♦» 

3919 PRINT "H«l-PftIRES DE LETTRES" 

3928 PRINT "HE-PfllRES DE CARACTERES GRAPHIQUES" 

3939 PRINT "W3-PAIRES DE CHIFFRES" 

3940 PRINT "U VOTRE CHOIX" 

3350 GET RJ-IF RSO" 1" AND R*<>"2" AND RtO"3" THEN 3950 

3968 IF R»»"2" THEN 402O 

3970 IF R$»"3" THEN 4939 

3980 G=INT(RND(1J*2+1> 

3930 IF G-2 THEN 4010 

4800 FJ--RABECCDOEEFFGGHHI I JJ" ! 

4018 P*="KKLLMMNN00PP0ORRSSTT" 

4920 PI="»IOOM*»**tMt*A««ir 

4939 PI-"11002244667788393355 M 

4040 FOR I»l TO 29 

4050 R»Z*INT<LEN'.P*>*RND(1 V2+D-1 

4968 LJU^MIDiCPt-R.l) 

4878 IF R>1 THEN T»"LEFT«<P«,R-1 1 GOTO 4898 

4088 T*-■ ,,- 

4099 P»=TI*MID*(P«,R+1) 

4189 IF LEN<P*»=1 THEN NEXT I 
4119 REM«*****#*****************««t**4 

4129 REM NOM DES JOUEURS 

4130 REM»*»»****»**********t*»*******» 
4140 PRINT "^ ■ 

4158 PRINT "OB POUR JOUER CONTRE MOI ENTREZ (JE)" 
4168 PRINT "MS SI VOUS VOULEZ OUE JE JOUE CONTRE MOI" 
"M MEME ENTREZ JE "J 
4170 PRINT "POUR LES JOUEURS 1 ET 2" 
4180 FOR 1=1 TO 2 

4190 PRINT "»IOM DU JOUEUR NO ".I 
4208 INPUT N*(I) 
4210 NEXT I 

4228 E=INT(RND<1)*2*1) 
4230 IF E=2 THEN 4250 
4249 J*(I>*N$C1) J*<2)=N»C2):GOTO4260 
4230 J*aj-N*f2J;J«(2)'>N*<l) 
4268 PRINT *T 
4270 RETURN 

4298 REM •***♦******•****♦♦*♦♦•*♦***» 
4230 FEM AFFICHAGE DES CARTES 
4398 REM****»*******«*********»*«**** 
4318 POKE 646,1 

4320 IF Ca> = l THEN GOSUB 2880 * 

4330 IF C<I>*2 THEN GOSUB 2030 
4340 IF C<I)=3 THEN GOSUB 2160 a 

4358 IF C<I>«4 THEN GOSUB 2230 
4360 IF C(I)=3 THEN GOSUB 2300 
4370 IF Cm=6 THEN GOSUB 2378 
4339 IF C<I>«7 THEH GOSUB 2448 
4390 IF C(I>=8 THEN GOSUB 2518 
4488 IF CCI;=9 THEN GOSUB 2580 
4418 IF Ca> = !8 THEN GOSUB 2639 
4420 IF C(I)-11 THEN GOSUB 2720 
4438 IF CCD-12 THEN GOSUB 2790 

4449 IF Ca>-13 THEN GOSUB 2860 

4450 IF CU>=14 THEN OOSUB 2930 
4460 IF C(I>*15 THEN GOSUB 3008 
4470 IF CCD-16 THEN GOSUB 3070 
4480 IF C<I>-17 THEN GOSUB 3140 
4499 IF C<I)»18 THEN GOSUB 3218 
4580 IF C(I>"19 THEN GOSUB 3280 
4318 IF C<I)»20 THEN OOSUB 3350 
4520 RETURN 

4330 REM**************************** 
4349 REM TEST SUR LES CASES JOUEES 
4550 REM***««»*****»********»******* 
4368 POKE 646, 1 
4370 IF C<»«1 THEN OOSUB 778 
4338 IF C<I)"2 THEN GOSUB 858 
4590 IF C(I)-3 THEN OOSUB 910 
469B IF CCD-4 THEN GOSUB 9?d 
4618 IF C<I>-3 THEN GOSUB 1930 

4629 IF C'n-6 THEN GOSUB 1990 

4630 IF C<I>«7 THEN GOSUB 1130 
4640 IF C<I)-8 THEN GOSUB 1210 
4630 IF Ctl)*4 THEN OOSUB 1279 
4660 IF C(I'-I0 THEN GOSUB 1339 
4670 IF CCI.Wl THEN GOSUB 1390 
4680 IF CCn-12 THEN Q08U8 1451) 
4699 IF CCU-13 THEN GOSUB 1510 
4788 IF C(I>"14 THEN GOSUB 1379 
4718 IF CI i-15 THEN GOSUB 1630 
.ilYfl IF CI "16 IHtN G'J-'Ut l'/.'U 
4738 IF CCD-17 THEN OOSUB 1758 
4748 IF C(I)-18 THEN OOSUB 1810 
4758 IF C(I)-19 THEN GOSUB 1879 
4760 IF C<I'-28 THEN GOSUB 1938 
4778 RETURN 
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MUSIC MACHINE 



Reserve aux virtuoses du clavier, ce programme trans- 
forme votre ORIC en instrument de rnusique. Concu sous 
forme de jeu. vous subirez deux epreuves ; dictee musi- 
cale et un peu du type simon. Un programme a voire 
portee ! 

Pascal CLOCHARD ^# 



Mode d'emploi i 

Vtous etes accuetlli par une petite presentation, puis lordinateur va 

vous demander si vous desirez avoir les instructions. 

Vous disposes des touches suivantes * 

ESC pour DO 

1 pour RE 

2 pour Ml 
etc. 

DEL pour DO (octave superieur). 

Vous occupez deux octaves, de ptus vous pouvez avoir les bemols : la 
touche infeneure a gauche donnera le demi-ton de la note superieure 
Avant de jouer, lordinateur vous demandera I'octave : 

- grace, normal ou aigu, puis I'enveloppe Si vous repondez oui trois 
parametres s'orfrent a vous : 

- notes liees 

- notes moyennement liees 

- notes peu liees ; 

Chaque note jouee sera representee sur une portee. Lorsque vous 
en avez assez de composer des melodies, vous presserez la touche. 

Avantde pouvoirrejouer.lordinateurva vous fairesubirdeux epreuves 

ATTENTION ; la premiere doit etre reussie pour passer a la seconde I! 

PREMIERE EPREUVE : 

Cest un genre de dictee musicale.L'ordinateurvaemettreune note qui 

servira de point de repere puis vous devrez donner 20 notes en entrant 

simplement leur nom au clavier 

DEUXJEME EPREUVE : 

eie consiste a reconnaitre parmi toute une suite, la note donnee au 

depart par lordinateur. Toutetois. vous avez lechoix entre 3vitesses. A 

vous de trapper sur ESPACE quand vous I'avez reconnue. 

ATTENTION ; Si vous voulez obtenir le point, il taut ; 

garder ESPACE enfonce pendant toule la duree de la note chaque 

raute vous enleve un point 

Cette epreuve demande un certain entrainement !! 




Rectifications a apporter pour adapter 
ce programme sur ATMOS : 

Remplacer SE6CA par ZE76A en lignes 2025. 3035 et 

9289. 

Remplacer :E804 par ZE93D en lignes 2080 3080 

93.50. 

Supprimer les lignes 3515 et 8005 puis remplacer la li- 

gne 5720 par : 

5720 : IF P <20 THEN WAIT 300:CALL583 



_II0O IFPEEK (42091 -■?1THENX-B:Y-A«1:CU 
RSETll0,93,O:CHAfta4,O,l 

_12QO lFPEEKia2OB]-a»f=THEHX-10: Y-A-1:C 
URSET [ 30, 33,0;CHABo-l, O, 1 

URSEI ISO, 73, O: CHAR 64, O, I 

_1Z70 IFPEEKta208l-BADTHENX>l:V-A»Z:CU 



conseil: 'iprin' 



I RETROWER f 



10 wait30o:soumdi.3,o:print-avez-vo 
hem entendu 'vgeto* 

>m<>-0"TMENCLS:C 




LIB A LA DETENTE" 



.1440 DATA4 



HUSICALE.L -ORDINATE 



_34I0 PRINT'DONNER UN POINT DE REPERE 

ET VOUS "IPRINT 

_3420 PRINT'DEVREI RECONNAITRE I 

TAIN NON9RE- 

_3430 PRINT : PR I NT 'DE NOTES. 120) C'EST 

RAISONNABLE ' ' • ": PRINT 

SUE VOUS ET 
ES PRE! ALORS* IPRINT 

IMfOUVREZ VOS OREILLES ET NE 



IFT».-R 


THEN 


V40 








IFTB.'D 


THEN 


U-BO 


•■OKEftlS 






hires 












FDRP-OT0239S 




CURSE TO 




DRAUIB, 1 


9-39S4A.I 




IIIIIIIMIHHIII 


_9093 PRINT 




_91O0 f>RIHtCHR*( 140) 'PROGRAMME n 


CI LA OERNIERE EP 


KENT FRANCAIS III* 




_9200 UAIT30O 








_9220 FORR-II026 












_9?30 NEXT 




_9Z33 PLATO. 0,0.0 


NT 


_92*0 UAI T 1 00: HI RES: INK 2 : QOT0V2BV 




.9270 fORI-lTOLENIBai JCHARIASCIHI 














•Ira p'm.r -ESPA 


DBAUI ,-4,1 :CURK0V 12,0,1: RE TURN 



05O IfA-lTMEN f 



A090 IFA-31HEN N-1Q:> 



DRAUIOO.O, I : CURMOV 



>: CURSE 112 

o,60,3:eiosubv;8o 

),ao, j:draw3i.o. IIMUW-d 



LE LOGICIEL 

DE LA SEMAINE 

THESEUS and the MINOTAUR. 
: . sur APPLE 




Vous connaissez tous la legende 
du Minotaure ? MINOS roi de 
CRETE demande chaque annee 
au roi de GRECE, sept garcons et 
sept lilies qui serviront de nourri- 
tureau Minotaure. Pourvaincrele 
Minotaure. Thesee (le filsdu roide 
Grece), part avec les esclaves. 
Dans le logictel THESEUS AND 
THE MINOTAUR, vous I'avez deja 
compris, vous etes Thesee. Seu- 
lement. Le Minotaure a capture la 
fille de Minos et la cache au cceur 
d'un labyrinthe et vous devez alle 
la sauver. 

Pour cela, vous vous deplacez 
dans le labyrinthe, comme si vous 
y etiez vraiment. les dessins don- 
nant une representation tri-di- 
mensionneile de I'endroit oil vous 
vous trouvez. Des portes par tou-- 
jours secretes, des trous dans le 
plancherou dans le plafond et des 
chambres a miroir sont des pie- 



ges pour se perdre dans ce laby- 
rinthe. d'ou I'on ne peut sortir que 
par la ou Ton est entre. Mais ce 
n'est pas tout ! Ce labyrinthe a 
trots etageset vous reserves d'au- 
tres surprises, car vous luttezaus- 
si pour rester vivant. Les creatu- 
res diaboliques du Minotaure 
peuvent vous attaquer au tour- 
nant et diminuer ou augmenter, 
selon I'arme du combat, vos res- 
sources de vie ; et de plus, il serait 
fou de vouloir tuer le Minotaure 
sans s'etre bien arme au pream- 
ble. 

Vous gagnez done, si vous sortez 
du labyrinthe. Meilleur encore se- 
ra votre score si vous y parvenez 
avec la princesse ou en tuant le 
Minotaure. Mais, mefiez vous. car 
meme si vous trouvez la princes- 
se, celui-ci peut tres bien vous la 
reprendre et la partie est loin 
d'etre finie. 





mc 



PETITES ANNONCES 
GRATUITES 



VENOS zx 81 + 32 Ko + 32 Ko + K7 

+ livres pour 1300 F 
Possibihte d'acheter separement 
pour avoir les prixau detail : ecrire 
a CHAMARD. 35. rue des Sablon- 
nieres 77670 SAINT MAMMES 
Tel. : (6) 423 50.27 

VENDS T07 (fevrier S4) sous ga- 
rantie + enregistreur K7 + cartou- 
che Basic + 3 livres partait etat : 
3200 F Monsieur HUYNN 48. rue 
de la Citadelle a CACHAN. Tel. : 
664.98.93. 

Echange ATARI 600 XL + magne- 
to ATARI 1010 + joyst + tablette 
graphique + cartouches QIX - 
DONKEY KONG - STARS RAI- 
SERS - ATARI ARTIST + 6 K7 de 
jeu + interface PAL-PERITEL. Le 
tout sous garantie contre APPLII 
+ Disk drive + ecran + manuel. 
Ecrire ou telephoner a J. Michel 
MABILLE. 50, rue R Dulac 94120 
FONTENAY SOUS BOIS- Tel. : 
875.44.62 (apres 18 H). 

VENDS ORiC 1 48Ko complet + 
PERITEL + ORIC1 POUR TOUS + 
20 programmes : 18500 F Chris- 
tian au 921.29.66 (apres 18 H). 

VENDS ensemble complet nOV/ 
83 sous garantie * SHARP PC 1251 
+ imprimante + interface K7avec 
manuel + K7 SHARP preprogram- 
mee (20 programmes) + 3 K7 
SONY vierges + 2 livres de pro- 
grammes pour PC 1251 + etui 
transport + adaptateur rechar- 
geursursecteur + 6 rouleaux de 
papier imprimante + cable pour 
magneto supplementaire.Le tout 
1800 F Georges BASSES 67/69. 
rue de la Colonnie 75013 PARIS. 
Tel. : 265.18.18 (bureau) ou 
580.92.06 (domicile). 

VENDS imprimante MCP 40 etat 
neuf. 4 couleurs. graphique : 
1650 F. (de preference dans la 
Vienne) Bruno BOUCHAUD 24. 
rue de Vouneuil 86000 POITIERS. 



Echange pour ORIC 1/ATMOS 
propose nouveautes 'RENDEZ- 
VOUS DE LA TERREUR". et "MIS- 
SION DELTA" contre autres pro- 
grammes. Patrick V1GOUROUX. 
Tel (56) 48 25 08 (entre 9 H et 17 
H). 

VENDS FX 702P + .mpnmante 
FP10 + interface FA2 + 2 cahiers 
de programmes. Le tout : 1000 F 
Tel. : 374.40.45 (lesoir). 

VENDS Interface CGV PHS60 (PE- 
RITEL UHFSECAM) sous garantie 
6 mois : 400 F. avec regulateur de 
tension. Recherche contacts 
avec possesseurs PSECTRUM en 
vue echange diverses. Patrick 
CAMPANOTTO 34, rue Villiers de 
risle Adam 75020 PARIS. Tel. : 
63693.05. 

VENDS T07 Neuf (Janvier 84 sous 
garantie) + K7 basic + lecteur-en- 
registreur de K7 THOMSON + li- 
vres "LA DECOUVERTE DE T07". 
"UN ORDINATEUR EN FETE". 
"JEUX SUR T07" + programmes. 
Le tout 3500 F VENDS console 
jeux video PHILIPS V10EOPAC 
C52 (nov. 83) + K7 n° 4, 6. 38. 39. 
Vendu 1000 F Jean Yves LEFEB- 
VRE. Tel. (96) 94.51.90. (le SOir 
apres 20 H) etudie toutes propo- 
sitions. 



RECHERCHE bon etat T199/4A (+ 
manuel) Gonzague DANESSE 61 , 
rue Jules Massenet 59223 
RONCQ. Tel. : (20) 94.48.20. 

VENDS ATARI VCS + 5 K7 et 
SPECTRUM 48K le tout excellent 
etat. Tel. : (27) 66.03.36. 

VENDS console jeux CBS COLE- 
CO + 5 K7 : 2500 F + adaptateur 
ATARI : 400 F + 1 K7 (ATARI PAR- 
KER ACTMSION). Prixadebattre 
Monsieur COURLEUX 187, bd Da- 
vout 75020 PARIS. Tel. 
373.37.82. 



CHERCHE pour T199/4A le modu- 
le TIEXTENTED BASIC pr-x maxi- 
mum 650 F Francois ALONSO 5. 

ehermn de Vaugram TERVES 

79300 

BRESSUIRE Tel {49)6518 84 

VENDS CBM 64 + rrtomteur cou- 
leur TAXAN + lecteur disquette 
VIC 1541 + 2 poignees + *La de- 
couverte du CBM 64" + 7 n" HE8- 
DOGICIEL : le tout 9000 F P GOU- 
JON 22/26. rue des Can* 
92150 SURESNES. Tel. 
77251.00 poste 6629 (bureau) 
ou 506 25 73 (apres 19 H 15) 

VENDS logiciels AZTEC : 250 F 
ZAXXON : 300 F possibtlite de 
vente pour autres logioels Mon- 
sieur DINE 68. bd Dtderot 75012 
PARIS. 

VENDS TI99/4A (12/83) + manet- 
tesjeux + cable K7 + mods + di- 
vers programmes + liaison pour 
fonctionnement : 1600 F. Eric 
HANACEK 21. avenue Antoine 
Heurtier026000VILLERSCOTTE- 
RETS Tel. . (23)96.16 06(lycee). 
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ORDINATEUR FAMUAL Tl 99/4 

CONSOLES ET ACCESSOIRES : 

WjtUitiuur SECAM France 
Mc-dul^teur SECAM K.K' 
Modulate-jr SECAM GH 

■ ■ ' i magneto -cassettes 
Rjrre maneaesjeux 
Uagnfto-assettes compatible 

RADIALA + cable 
Magn^to-ta-.settes tornpatible 
LANSAV + eatrte 

•PROGRAMMATION SOW DISOUETTES : 
■ ode |rv*cess Paiaf) 

■ :'-.:j !■.-.', i •■.■"[, - 

"LICSO Pascal Lrniw 

•ucSDPasat&atot 

'Imprimarnen 99/4 par Centronix 

•Firh^i d '.'dresses 

'Aide A la pfogrammalion 2 

•Aide a la programrraoon 3 

•fiectnote 

'Resistance des rnartruRjx 

'MafflCmallquCS 

■N B il esi necessarre de poswMer 

le bafter d'excension PHP 1200 « 

le conwtrfeur de d'squeties plus rwflM 

de dtsquea 



PROGRAMMATION 
• Extender basic JoWet 
n LOGO II 



ORGANISATION 
Conseil financier 

I ,- r ..i, ' i ■ ,■■ 
ri'-.ljfin ' II-.''-. 



MODULES EDUCATION 



AdrJit" 






Adrjiiii 

/"d'lihon-Canon 

UrviM'jn-deinolilion 
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MOOULES LOISIBS 
Conneti lour 
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La Regie a Otlcul 

sort pour le T' r juin une extension memoire 32 K 

exterieure pour la console TI99/4, avec 48 K ram, 

ce qui permet de realiser des programmes plus performants, 

d'uttliser le logo II (en francais), 

outil indispensable a leveil informatique des eleves. 



LOGO SUR TEXAS: 

995 Fa 



Extension 
TI-LOGO 



; 32K } u 



Texas Instruments 
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Pardee 
The atwcfc 



Jeux Retro I 
Jeii« Retro II 



PROGRAMMES MAGNAWD I 
La ponctLiation en Fr,inrjm 
Drvneuri PGCO - PPCM 

PROGRAMMES VTFI NATHAN : 

C*rone maiicieuie 
Comp et mult 
Moll trortei vol I 

Mor-, rror.ft vol 2 



S COLLINS/TEXAS 

Introd ou n 99/4 |i) 

hurod m ri99/4t?l 

In tecnnlqua rir: p<o^r.imrnf-. 

dejnu 1 1) 
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HEBDOGICIELS SOFTWARE 
TIN" I Ba:Kvmp\cK7 
rirsr'2e-iMceierKJu 
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MOOULES FUIMWARE : 

Rabbfl tral 
Driving Demon 
Ambui.ince 
Sarni Mtk 

LIBRAIRIE TEXAS 99/4 : 

Edition SHIFT : 

Jeux et programmes - Tome 1 

Jeux el programmes - Tome 2 

Jeux e< programmes - Tome 3 Hmsk eiendul 

Ed. RADIO : 

Pr.mgue duTl 99/4 -Nhcaul 
Pr.iurjue du Tl 99/4 - NrviMu 2 
50 programmr-* n 9*? 

u Irchier basic 



EYROLLES : 

Condurledu Tl 99/W1L1.ARD 

Mon Tl 99/4 A/CIYRAT 



Inter eoltloni : 

|Bob COMNORSI 

Lps grinds dassigues rJujeu 

pour voire Tl 99/4 A 



LA PROMOTION DE LA SEMAINE 
Module Jeux : 

Munch- man. Ret our du pirate. 
Hopper, Technique piogrammat I on 
d« Jeux n* 1 et 2 
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TEXAS. 











BON DE COMMANDE 
TARIFS AU 25/5/1984 
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